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