habe eben von Rainer einen wichtigen Tip bekommen. Nachdem das jetzt funktioniert stelle ich fest, dass ich dieses Ergebnis garnicht wollte...
In meiner Tabelle 1 steht ein Objekt aus Power Point. Dieses Objekt ist beweglich und wenn ich es anklicke steht in der Bearbeitungsleiste: =EINBETTEN("PowerPoint.Slide.8";"")
Im Namensfeld steht: Objekt 1
Jetzt möchte ich es in ein anderes Tabellenblatt kopieren, dabei soll es aber beweglich bleiben und nicht wie mit meinem Code als
Bild übertragen werden:
Dim pres As Object
Set pres = Worksheets("Tabelle1").Shapes("Objekt 1")
Worksheets("Präsentation").Activate
pres.Copy
Range("A1").PasteSpecial (xlPasteValues)
Ich glaube ich muß Shapes ändern, aber was setzte ich dann ein.
Gleichzeitig meine Frage, kann ich die Größe beim kopieren verändern, z.Bsp. auf Bildschirmgröße. Das wäre es dann :-)
Vielen Dank noch mal für die Hilfe.
Gruß
Wolfgang
=EINBETTEN("PowerPoint.Slide.8";"")