Office: VBA: Name von Grafik im Direktfenster / bestimme Grafiken löschen

Hallo,

ich suche den Befehl, wie ich den Namen von Grafiken im Direktfenster auslesen kann?
Bei Diagramme funktioniert das so:?activechart.name (in Direktfenster eingeben, Diagramm auswählen, im Direktfenster Befehl bestätigen). Ich weiß nur nicht wie ich es in diesem Fall mit Grafiken mache.

Außerdem interessiert es mich, ob ich Grafiken (Bilder) noch anders ansprechen kann, außer mit dem Namen.

Hintergrund ist:
Ich möchte mir in Excel eine Liste erstellen, mit alle von mir beobachteten, beendeten Artikeln aus eBay. Wenn meine eBay Liste wieder voll ist, dann kopiere ich diese und füge sie in eine temporäre Tabelle ein, wo sie dann aufbereitet wird (jeder Artikel hat nach der Aufbereitung nur noch eine Zeile an Stelle der x Zeilen, wo noch Zusatzinfos wie z.B. die Bewertung des Verkäufers steht). Nach der Anpassung wird die Artikelliste zu der "richtigen" in ein anderes Tabellenblatt eingefügt. Das passt soweit. Haken ist: ich habe zu jedem Artikel ein Artikelbild (das soll bleiben) und einen Stern (der Hinter dem Verkäufernamen steht, welchen ich aber mit weglösche).

Diese Sterne möchte ich automatisch löschen. Mit "Gehe Zu" --> Objekte, funktioniert das nicht, da die Artikelbilder mit markiert werden. Ich will jetzt versuchen über die Namen zu gehen, vielleicht haben die Sterne andere Namen als die Artikelbilder, so dass ich diese darüber löschen kann.

Die Sterne sind alle in der gleichen Spalte. So wie es aussieht, sind sie auch immer in der oberen rechten Zellenecke ausgerichtet. Ich denke darüber könnte ich sie noch ansprechen, weiß aber noch nicht die entsprechenden Befehle, da ich mit Grafiken in VBA noch nicht gearbeitet habe.

Grüße und Danke, wenn ihr mir Tipps geben könnt zu den oberen zwei Fragen.

:)

 

Hi,

man kann den Namen des gerade selektierten Objektes so anzeigen lassen: MsgBox Selection.Name

Mit dem folgenden Code kannst du alle Bilder (Shapes) im aktiven Tabellenblatt mit Namen in Spalte A und Adresse der linken oberen Ecke in Spalte B auflisten lassen. Vielleicht hilft dir das ja als Anregung:
Code:

Bis später,
Karin

 

Sehr gut, auf die Messagebox wollte ich verzichten, dein Vorschlag hat mich aber auf eine simple Idee gebraucht:" ?selection.name" im Direktfenster, das funktioniert.

Danke, ich probier mal damit weiter.

 

Passt. Vielen Dank!

Hier der Code, der alle Grafiken in einer bestimmten Spalte (D) löscht:

Sub BilderInSpalteDLoeschen()
Dim shaBild As Shape
Dim lngZeile As Long
For Each shaBild In ActiveSheet.Shapes
If shaBild.TopLeftCell.Column = 5 Then
shaBild.Delete
End If
Next shaBild
End Sub