ich habe ein AddIn erstellt mit einem Tabellenblatt. Hier ist ein (einziges) Bild enthalten.
Dieses kann ich mit dem Code (s.u.) auch ansprechen.
Aber das Kopieren in eine geöffnete Datei klappt nicht ...
Könnt ihr mir helfen?
vielen Dank vorab
Gruß
Christian
Sub GetPic()
Dim i as Long
Dim sh as Shape
With ThisWorkbook.Sheets(1)
For i = 1 To .Shapes.Count
MsgBox .Shapes(i).Name 'klappt - wird "Picture 1" ausgegeben
Next
End With
Set sh = ThisWorkbook.Sheets(1).Shapes("Picture 1")
sh.Copy
ActiveSheet.Range("J1").Paste 'Laufzeitfehler 438:
'Object unterstützt diese Methode nicht
End Sub
auch andere Versuche führten bisher nur zu Fehlern.