MS Powerpoint - stinavn i header/footer på slide

Kan manuelt indsættes i diasmaster (Vis/Master/Diasmaster) i midter-sektionen.

Hvis automatisk - så via VBA

Mange tak

Det skal være automatisk, jeg skal blot lige forstå hvad du mener med VBA. Jeg har funder midter-footeren. Men hvad skal jeg så gøre?

Bedste hilsner
Martin

VBA = Visual Basic for Applications (makro-/programmerings-sproget) i office.

Det bliver først lidt senere jeg vender tilbage (har kunde-opgaver)...

Følgende løsning er ikke den mest optimale:

Opret en ny PP-fil.
Følgende kode indsættes i et module:
- Alt+F11
- Insert / Module
- Kopier koden hertil
- Luk VBA-vinduet
- Aktiver "Tilpas / Kommandoer / Makroer"
- Under Makroer findes sætSti - træk denne op som knap i PP-programmet
- Gem PP-filen som ".PPA" (Tilføjelsesprogram)

Åbn en bestående PPT-fil
Funktioner / Tilføjelsesprogrammer / Tilføj ny / marker x_Sidefod (skal kun gøres 1 gang)

Nu skulle knappen kunne anvendes og stien indlægges i diasmasteren.
---
Hvis problemer - så send en mail til: pb@supertekst-it.dk
så returnere jeg filen, som du kan gemme som ".PPA"

KODEN:

Public Sub sætSti()
    ActiveWindow.ViewType = ppViewSlideMaster
    activepresentation.SlideMaster.Shapes("Rectangle 5").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=9).Select
    ActiveWindow.Selection.TextRange.Text = activepresentation.Path
    ActiveWindow.ViewType = ppViewSlide
End Sub