1 Bild entfernen

Forumthread: 1 Bild entfernen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: 1 Bild entfernen

1 Bild entfernen

26.01.2019 10:39:00

Berger

Hallo,
im Bereich B2:E6 ist ein Firmenlogo eingefügt (Grafik oder WordArt). Es kann zwischenzeitlich ein anderes ersetzt haben. Das Blatt enthält in anderen Bereichen noch andere Bilder.
Nun möchte ich gerne durch Klick auf eine Schaltfäche nur das aktuelle Logo in B2:E6 entfernen.
Geht das? Wie lautet der VBA-Code?
Vielen Dank im Voraus!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 1 Bild entfernen

26.01.2019 10:52:24

Nepumuk
Shape anhand Bereich löschen

26.01.2019 10:52:53

Beverly

AW: 1 Bild entfernen

26.01.2019 10:52:24

Nepumuk

Hallo,
teste mal:

Public Sub DeleteLogo()
    Dim objShape As Shape
    For Each objShape In ActiveSheet.Shapes
        If objShape.TopLeftCell.Address = "$B$2" Then Call objShape.Delete
    Next
End Sub

Gruß
Nepumuk

Shape anhand Bereich löschen

26.01.2019 10:52:53

Beverly

Hi,
z.B. so:

Sub ShapeLoeschen()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.TopLeftCell.Address = "$B$2" And _
shaShape.BottomRightCell.Address = "$E$6" Then
shaShape.Delete
Exit For
End If
Next shaShape
End Sub