hallo forum
ich füge mit folgendem VBA Code eine Grafik ein:
If Range("b29") = 1 Then
Set p = Sheets("Eingabe").Pictures.Insert("c:\Kalenderbilder\Mondphasen\01022010.gif")
With Sheets("Eingabe").Range("A17")
p.Left = .Left
p.Top = .Top
p.Height = 117
p.Width = 117
End With
Else: GoTo Mondab85
End If
und versuche sie zu löschen mit folgendem vba code, was aber nicht funktioniert:
Dim xshape As DrawingObjects
On Error GoTo Ende
For Each xshape In ActiveSheet.DrawingObjects
xshape.Delete
Next xshape
Ende:
Ich hab auch schon anstatt der "drawingobjects" "pictures" und "shapes" versucht...alles ohne erfolg...
was läuft falsch?
gruss
frank