Office: Formen per VBA einfügen und formatieren

SP991 · 20. September 2014

Hallo zusammen,

ich habe einen VBA Code geschrieben, der für ein beliebiges Excel Workbook ein Inhaltsverzeichnis inkl. Verlinkungen auf die Blätter erstellt. So weit funktioniert das auch wie gewünscht.

Nun wollte ich eine Möglichkeit einbauen, das Verzeichnis mit einem Klick upzudaten, da sich an den Workbook Strukturen konstant etwas ändert.

Ich dachte daran, zwei runde Pfeile aus den Shapes so einzubauen, dass sie etwas wie das hier ergeben:

Ich weiß auch mittlerweile, wie ich shapes per VBA einfügen kann, aber wie kann ich dann genau die zu letzt hinzugefügte shape ansteuern und formatieren? (Manchmal gibt es auf Tabellenblättern auch andere Shapes, eventuell auch Pfeile der gleichen Art, die ich natürlich dann unverändert lassen muss)

Vielen Dank bereits jetzt für eure Hilfe

Sam

:)

EarlFred · 22. September 2014

Hallo Sam,

nicht hübsch, aber als Mustercode sollte es genügen:
Code:

Option Explicit

Sub Makro1()
Dim sh1 As Shape, sh2 As Shape

Set sh1 = ActiveSheet.Shapes.AddShape(msoShapeCircularArrow, 100, 100, 50, 50)
Set sh2 = ActiveSheet.Shapes.AddShape(msoShapeCircularArrow, 100, 100, 50, 50)

sh1.Adjustments.Item(2) = 77
sh2.Adjustments.Item(2) = 77

sh1.Rotation = -15
sh2.Rotation = 165

With ActiveSheet.Shapes.Range(Array(sh1.Name, sh2.Name))
.Group
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 42
.Fill.Transparency = 0#
End With

Set sh1 = Nothing
Set sh2 = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

SP991 · 22. September 2014

Hallo EarlFred,

vielen Dank für die Antwort, funktioniert super! *Smilie Werde nun noch an der Formatierung feilen und dann passt es.

Viele Grüße

Sam

xlph · 22. September 2014

Ein Logo geht auf Reise....

Office: Formen per VBA einfügen und formatieren

Formen per VBA einfügen und formatieren

Formen per VBA einfügen und formatieren

Formen per VBA einfügen und formatieren

Formen per VBA einfügen und formatieren - Similar Threads - Formen VBA einfügen

GIF über Form legen

Formen ein- und ausblenden per VBA

Eingefügte Form (z.B. ein Rechteck) über VBA anspielen und beschriften

Form nach änderung per vba Speichern

Hintergrundfarbe eines Forms mit VBA ändern

User Form VBA

Formen in Platzhalter umwandeln?