Dateipfad in Powerpoint hinterlegen

[visioo]

Hallo,

ich möchte den aktuellen Pfad wo Powerpoint Datei liegt, in selbigen hinterlegen.
Nicht in der Fußzeile. Kann mir einer sagen wie das geht?

Es handelt sich um Powerpoint 2010

Danke schonmal

 

[yaegi]

Ich verstehe kein Wort!

ich möchte den aktuellen Pfad wo Powerpoint Datei liegt, in selbigen hinterlegen.

Du möchtest den Dateipfad deiner PPT in selbigem (also dem Pfand) hinterlegen? Was bitte?

 

[MONSTER]

Textfeld mit Pfad in Slide 1 einfügen geht so

Sub InsertPath()
Dim PathAndName As String

PathAndName = ActivePresentation.Path & "\" & _
ActivePresentation.Name

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
.TextRange.Text = PathAndName
.TextRange.Font.Size = 12
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
End Sub

 

[visioo]

ich möchte halt immer den aktuelle pfad angezeigt bekommen wo die Datei liegt
@Monster: hat funkitoniert. Vielen Dank ! Leider aktualisiert es sich nicht wenn es woanders liegt

 

[MONSTER]

Dafür muss das Macro in das AutoEvent verpackt werden

http://skp.mvps.org/autoevents.htm