Dringend: Textfeld in LINK VBA
08.07.2020 15:35:35
Pfeil
bitte helft mir, ich komme einfach nicht weiter: In einer PowerPoint (2016) habe ich in einem Textfeld den kompletten Pfad zu einer Datei hinterlegt (z.B. F:\REU_MA-CGV\100_Gremien\000_Meetings\2015 Gremientermin CAT JF.pptx). Ich möchte diesen Text jetzt gerne per Automation in einen Link umwandeln.
Zum Hintergrund:
Ursprünglich kommt dieser Pfad aus einer Access. Er wird von dort nach Excel (als Text) und dann nach PowerPoint (als Text) in eine vorhandene Powerpointvorlage in das bestehende Textfeld "Link1" kopiert. Das alles ist nötig, da ich keine Links von Excel nach PowerPoint kopieren kann, ohne dass Excel den Dateipfad (Link) ändert.
Eine Änderung in Excel (von Textfeld zu Link) geht per VBA. Bringt ja allerdings nichts, da Excel beim kopieren nach PowerPoint diesen Pfad ändert. Dies ist der Code in Excel:
Sub Hyperlink1()
With ActiveSheet
On Error Resume Next
.Hyperlinks.Add .Cells(2, 27), .Cells(2, 27).Value
End With
End Sub
Ich bräuchte diesen Code nur für PowerPoint für das Feld Link1. Hab es bisher nicht hinbekommen.
Bitte helft mir!!!!!
Danke!