Name eines Shapes ermitteln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Name eines Shapes ermitteln"