Ich habe folgendes Problem: Ich habe in Excel Links (zu bestimmten Dateien auf unterschiedlichen Laufwerken) in den Zellen M2 bis Q2. Diese möchte ich nun nach PowerPoint übertragen in die Textfelder Link1 - Link5. Ich bekomme es übertragen allerdings nur als Text. Der Code hierzu lautet (exemplarisch für Link1) :
.
.
Set pptpres = pptapp.activepresentation
pptpres.slide(4).shapes("link1").textframe.textrange.characters.text = Range("m1").Value
.
.
Paste and Copy funktioniert. Benötige hier allerdings eine Automation.
Vielen Dank für die Hilfe!