Office: (Office 2010) Bilder aus einzelnen Zellen mittels VBA löschen

Hallo zusammen,

gibt es eine Möglichkeit nur Bilder aus bestimmten Zellen eines Tabellenblattes mittels eines VBA Codes zu löschen?

Bis jetzt hab ich nur

Worksheets("").DrawingObjects.Delete

gefunden, dass mir allerdings alle Bilder des Tabellenblattes löscht. Hab es bereits versucht mit

Worksheets("").Cells(6,2).DrawingObjects.Delete

aber das funktioniert nicht.

Gruß
Mark

:)

 

Hi Mark,

laufe in einer Schleife über alle Bilder und prüfe, ob die linke obere Ecke (TopLeftCell) in der betreffenden Zelle liegt.

 

Hi Karin,

Das Bild das ich löschen möchte wurde folgendermaßen in der Zelle plaziert:

With picBild
.Top = Range("B6").Top + 2
.Height = 90
.Left = Range("B6:C6").Left + (Range("B6:C6").Width - picBild.Width) / 2
End With

und genau dieses Bild möchte ich aus der Zelle B6 löschen. Da auf dem Tabellenblatt auch noch weitere Bilder vorhanden sind, die nicht gelöscht werden sollen. Nur leider funktionieren meine Codes nicht die ich bereits ausprobiert habe. Es kommt dann immer die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht.

Gruß
Mark

 

Hi

so wie Beverly beschrieben hat:

Code:

Gruß Daniel

 

Hi Mark,

oder auch auf diese Weise:

Code:

 

Vielen Dank! Es funktioniert *Smilie