Tag Archives: shape

#werbasteltmit – Formen zusammenführen in #PowerPoint2013

Sie finden die von Microsoft gelieferten Formen schön – Wolken, Herzen, Smileys, Pfeile, Rechtecke, … Manchmal benötigen Sie aber andere Formen, die sich aus den vorhandenen im Prinzip durchaus zusammenbauen ließen. Zum Beispiel einen Pfeil, der aus einer Wolke entspringt. Sie zeichnen also eine Wolke, dann einen Pfeil, und dann sieht das so aus: Der Pfeil liegt einfach eine Ebene oberhalb der Wolke, und jede der beiden Formen hat ihre eigene Verlaufsfüllung, ihren eigenen Rand, … Deshalb ist das nur fast die Lösung, die Sie…

Read More »

Fixierte Objekte werden verschoben #ExcelFehler beim #Filtern #gnaaaa

Schon mal erlebt? Sie schalten in Ihrer Arbeitsmappe den Filter ein, und dann dürfen Sie tausend Mal die Fehlermeldung „Fixierte Objekte werden verschoben“ wegklicken … 🙁 Mühsam. Was ist der Grund? Irgendwo liegen Shapes herum, die beim Filtern ihren Platz wechseln müssen, weil sie an die Zellen „angeklebt“ sind. Und wie geht das weg? Entweder entfernen Sie das Hakerl bei START > Optionen > Erweitert > Ausschneiden, Kopieren und Einfügen > Eingefügte Objekte mit übergeordneten Zellen auschneiden, kopieren, sortieren Oder Sie programmieren ein bisschen was:…

Read More »

#VBA #Shape #Rainbow

#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