Thema: Grafiken löschen | Herbers Excel-Forum

Hallo,
ich kopiere von einer Webseite Zahlen zum weiterverarbeiten.
Bei diesem Kopiervorgang lässt es sich nicht vermeiden, zu den Zahlen, Grafiken mit zu kopieren.
Nun habe ich mir ein Makro aufgezeichnet, dass die Grafiken löscht.
Hier der Code.

Sub grafiken_loeschen()
ActiveSheet.Shapes("Picture 4").Select
Selection.Delete
ActiveSheet.Shapes("Picture 5").Select
Selection.Delete
Range("A1").Select
End Sub

Bei der nächsten Bearbeitung funzt der Code aber nicht, weil die Grafiken dann "Picture 6" und "Picture 7" heissen.
Wieder beim nächsten Mal "Picture 8" und "Picture 9" usw.
Wie kann der Code funzen, egal wie die Grafiken heissen, dass sie immer gelöscht werden?
Lieben Dank für eure Hilfe
Gruß Bernd

_oT = "ohne Text"

... leider wird dadurch auch der Button mit dem Makro gelöscht.
Kann du den Code bitte so ändern, dass der Makro-Button da bleibt.
Vielen Dank
Gruß Bernd

Hi nochmal,
ich habe mir glaube ich selbst helfen können.
Ich habe mir den Code für das Erstellen eines Buttons aufgezeichnet und an deinen Code rangehängt.
Funzt.
hier mal der Code zum sehen ob er verbessert werden kann:

Sub grafiken_loeschen()
ActiveSheet.DrawingObjects.Delete
Rows("3:7").Select
Selection.Delete Shift:=xlUp
Range("A3:C4").Select
Selection.Cut
Range("D1").Select
ActiveSheet.Paste
Range("A1").Select
Rows("4:6").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Buttons.Add(483.6, 9, 89.4, 21).Select
Selection.OnAction = "grafiken_loeschen"
Selection.Characters.Text = "Löschen"
Range("A1").Select
End Sub

Gruß Bernd

Hallo Bernd,
probiers mal wie Nachfolgend, wenns 's nicht klappt, schau mal in der Hilfe nach Type, vielleicht ist nur msoPicture falsch:

Sub Bildweg()
Dim S
For Each S In ActiveSheet.Shapes
If S.Type = msoPicture Then S.Delete
Next S
End Sub

Gruß
Reinhard

.

Hi Bernd,

Sub BilderLoeschen()
Dim shElement As Shape
For Each shElement In ActiveSheet.Shapes
If InStr(shElement.Name, "Picture") > 0 Then shElement.Delete
Next shElement
End Sub

---

.