PowerPoint - filnavn i sidefod

Hvis du mener en automatisk funktion som i f.eks. Word, er den der ikke.

Men du kan manuelt indtaste det på mastersiden, så vises det på alle dias.
Vis-Master->Diasmaster

Det skal være automatisk.

Som sagt - funktionen findes ikke!

Jeg ved at der kan indsættes stinavn i præstentationen med VBA. Det meste af koden har jeg, men mangle lige det sidste.

Prøv med noget i denne stil

Sub StiISidefod()
    ActiveWindow.ViewType = ppViewSlideMaster
    ActivePresentation.SlideMaster.Shapes("Rectangle 5").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=10, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = ActivePresentation.Path
    End With
    ActiveWindow.ViewType = ppViewSlide
End Sub

Hvis du har rettet i masteren, skal du nok tilpasse Rectable 5 til noget andet, men prøv dig frem.

fra : www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Q_20355825.html+print+filename+vb+powerpoint&hl=da&ct=clnk&cd=5&gl=dk" target="_blank">http://64.233.183.104/search?q=cache:i9-Sx3KzGQUJ:www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Q_20355825.html+print+filename+vb+powerpoint&hl=da&ct=clnk&cd=5&gl=dk

Sub Add_Footers()
 
    With ActivePresentation.Slides.Range.HeadersFters
        With .DateAndTime
            .Format = ppDateTimeMdyy
            .Text = ""
            .UseFormat = msoTrue
            .Visible = msoTrue
        End With
        With .Footer
            .Text = ActivePresentation.FullName
            .Visible = msoTrue
        End With
        .SlideNumber.Visible = msoTrue
    End With
End Sub

her er det hele :)=

Hello Martinlam,

you can do it with a small macro

-first make a backup copy of your presentation


-open the VB Editor with ALT+F11
-then insert a new module
-then paste the code

Sub Add_Footers()
 
    With ActivePresentation.Slides.Range.HeadersFters
        With .DateAndTime
            .Format = ppDateTimeMdyy
            .Text = ""
            .UseFormat = msoTrue
            .Visible = msoTrue
        End With
        With .Footer
            .Text = ActivePresentation.FullName
            .Visible = msoTrue
        End With
        .SlideNumber.Visible = msoTrue
    End With
End Sub

-and choose run (F5)
-then save and close
-now the footers should be there

it will add file path + date to every slide

HAGD:O)Bruintje