Hallo zusammen
Ich möchte den Shapes Namen zB. "Muster" zuteilen:
With Sheets("Übersichtskarte")
.Shapes.AddShape(msoShapeOval, 290, 16, 9.75, 9.75).Fill.ForeColor.SchemeColor = 11
.name = "Muster"
End with
So funktionierts nicht. Geht das nur mit select? ZB.
With Sheets("Übersichtskarte")
.Shapes.AddShape(msoShapeOval, 290, 16, 9.75, 9.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.name = "Muster"
End with
Danke und Gruss
Gregor