Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Name eines Shapes ermitteln

Name eines Shapes ermitteln
09.03.2005 10:50:09
Torsten
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name eines Shapes ermitteln
09.03.2005 11:11:45
harry
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
AW: erledigt - mT
09.03.2005 11:22:24
Torsten
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
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige