Herbers Excel-Forum - das Archiv

Name eines Shapes ermitteln

Bild

Betrifft: Name eines Shapes ermitteln
von: Torsten K.

Geschrieben am: 09.03.2005 10:50:09
Hallo beisammen,
mit dem folgenden Code kann ich aus meiner PERSONL.xls ein Logo in andere Tabellen kopieren:
Sub LOGO()
If MsgBox("Möchten Sie das Logo jetzt einfügen?", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Windows("PERSONL.XLS").Visible = True
Sheets("Tabelle1").Shapes("Picture 1").Copy
ActiveWindow.Visible = False
ActiveSheet.Paste
Application.ScreenUpdating = True
Else
End If
End Sub

Dafür muß ich natürlich den Namen des Shapes kennen.
Wie kann ich diesen nun grundsätzlich über VBA ermitteln?
Vielen Dank für Eure Tips.
Gruß
Torsten
Bild

Betrifft: AW: Name eines Shapes ermitteln
von: harry
Geschrieben am: 09.03.2005 11:11:45
hi,
MsgBox Sheets("Tabelle1").Shapes(1).Name
liefert dir den Namen.
ps: warum der umweg über personl.xls? warum nicht
ActiveSheet.Pictures.Insert ("PFAD DATEINAME")
liebe grüße,
harry
Bild

Betrifft: AW: erledigt - mT
von: Torsten K.
Geschrieben am: 09.03.2005 11:22:24
Hallo Harry,
vielen Dank für Deine Hilfe.
Über PERSONL.xls, weil ich's halt nicht besser wußte.
Deinen diesbezüglichen Tip schau mir dann auch noch an.
Gruß
Torsten
 Bild
Excel-Beispiele zum Thema "Name eines Shapes ermitteln"
Shapes in Abhängigkeit von Zellwerten färben Letzte nichtleere Zelle ermitteln
Blattname ermitteln Kopfzeile der Zelle mit dem höchsten Wert ermitteln.
Ermitteln von Datei- und Pfadnamen Zellinhalt in zweitem Blatt ermitteln
Zustand von Tabellenblatt-Checkboxes ermitteln Wert in der Zelle neben dem Maximalwert ermitteln
Summe einzelner Zellwerte ermitteln Seitenumbruch ermitteln und Übertrag erstellen