Tag Archives: linie

Ich seh den Wald vor lauter #Säulen nicht – das #Verbunddiagramm

Excel, Uncategorized

Das #Säulendiagramm, das ich gestern erstellt habe, ist noch ein wenig #unübersichtlich. Ich würde gerne die Planungsdaten (fix, rein und Potential) ein bisschen von den Leistungsdaten (Arbeitsstunden, vergangen, geleistet) trennen. Also: noch einmal hinein in das Diagramm, und mit DIAGRAMMTOOLS > ENTWURF > Typ > Diagrammtyp ändern nach einer besseren Alternative suchen. Die kommt des Typs Verbund: Manche Diagrammtypen lassen sich miteinander kombinieren – Gruppierte Säulen und Linie sind dafür sozusagen die Klassiker. Ich wechsle also den Diagrammtyp für die Leistungsdaten, und schon sieht das…

Read More »

PowerPoint, Uncategorized

#PowerPoint gibt Halt – die #Führungslinien

Bild

Tipp PowerPoint Führungslinien

Sie hätten gerne Ihre Objekte mit wenig Aufwand in allen Folien auf die gleiche Stelle positioniert? Lassen Sie sich führen – mit Hilfe des Werkzeugs ANSICHT > Anzeigen > Führungslinien. Aktivieren Sie diese, so sehen Sie in der Entwurfsansicht eine senkrechte und eine horizontale Führungslinie, die auf magische Art Objekte anziehen. Daher brauchen Sie sie nur noch dahin verschieben, wohin Sie Ihre Objekte positionieren wollen.

Eine horizontale Führungslinie ist Ihnen zu wenig? Nein, hier kommt jetzt kein Vortrag über Bescheidenheit, sondern der Hinweis, wie PowerPoint Ihrem berechtigten Anspruch gerecht wird: Klicken Sie mit der rechten Maustaste auf eine Führungslinie, und wählen Sie im Kontextmenü den Eintrag „Horizontale Führungslinien“.

Das machen Sie so oft, bis Sie vom Geführt-Werden genug haben 🙂

Uncategorized, VBA

#VBA #Shape #Rainbow

Bild

#VBA #Shape #Rainbow

Regenbogen leicht gemacht:
Linie zeichnen, Makro ausführen. Das Makro versechsfacht die gerade markierte Linie mit Versatz (von der Stärke der Linie abhängig), und weist ihr jeweils eine der vorhandenen Linienformatvorlagen zu – wenn die Theme Colours einen Regenbogen ergeben, wird’s farbenprächtigst. Am Schluss wird noch gruppiert, damit das spätere Handling leichter wird.
Was, Sie wollen sich das Makro nicht selbst ausdenken? Bitte sehr, nehmen Sie dieses:

Sub Rainbow()

 Dim myShp As ShapeRange
 Dim I As Long
 Dim FF(6) As String
 Dim Style(6) As Long
 Dim Offset As Long
 'Styles (Formatvorlagen) muss man einfach abzählen - 14 ist zB der letzte der moderaten Styles
 Style(1) = msoLineStylePreset14
 Style(2) = msoLineStylePreset9
 Style(3) = msoLineStylePreset11
 Style(4) = msoLineStylePreset13
 Style(5) = msoLineStylePreset10
 Style(6) = msoLineStylePreset12
 
 Set myShp = Selection.ShapeRange
 Offset = myShp.Line.Weight * 0.75 'Versatz muss weniger sein als die Linie dick ist
 FF(1) = myShp.Name
 myShp.ShapeStyle = Style(1)
 For I = 2 To 6
 Selection.Copy
 Selection.PasteAndFormat (wdPasteDefault)
 Set myShp = Selection.ShapeRange
 FF(I) = myShp.Name
 ActiveDocument.Shapes.Range(Array(FF(I))).Select
 myShp.Left = myShp.Left + Offset
 myShp.Top = myShp.Top + Offset
 myShp.ShapeStyle = Style(I)
 Next I

 ActiveDocument.Shapes.Range(Array(FF(1), FF(2), FF(3), FF(4), FF(5), FF(6))).Select

 Selection.ShapeRange.Group
End Sub