Shapes mit VBA löschen
WolfgangN
ich lasse mit VBA einen Pfeil erstellen. Dies funktioniert auch. Leider bekomme ich es nicht hin den Pfiel beim nächsten Aufruf des Makros zu löschen, bevor wieder ein neuer Pfeil entsteht.
Was muß ich machen, damit beim Aufruf des Makros zuerst der Pfeil gelöscht wird und dann ein neuer Pfeil entsteht?
Vielen Dank und Gruß
Wolfgang
Sub Makro1()
Dim shp As Shape
With ActiveSheet
'hier soll der gelbe Pfeil (nicht das Diagramm) gelöscht werden, es kommt aber
'Fehler: Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht,
.Shapes.Delete
Set shp = .Shapes.AddShape(msoShapeRightArrow, 333.75, 240.75, 78#, 42.75)
End With
With shp
.Fill.ForeColor.SchemeColor = 13
.Fill.Visible = msoTrue
.Fill.Solid
.IncrementRotation -19.65
End With
End Sub
Anzeige