VBA bij powerpoint mwt kop en voettekst

[Nudie]

Ik heb de volgende code in visual basic van powerpoint 2010

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
ActivePresentation.CustomDocumentProperties("titel") = frmStart.txttitel.Text
ActivePresentation.CustomDocumentProperties("subtitel") = frmStart.txtsubtitel.Text
ActivePresentation.CustomDocumentProperties("datum") = frmStart.txtdatum.Text
        With ActivePresentation.TitleMaster.HeadersFooters
            With .DateAndTime
                .Format = ppDateTimedMMMMyyyy
                .Text = Me.txtdatum
                .UseFormat = msoFalse
                .Visible = msoTrue
            End With
            With .Footer
               [B] .Text = Me.txttitel[/B]
                .Visible = msoTrue
            End With
            .SlideNumber.Visible = msoTrue
        End With
    With ActivePresentation.SlideMaster.HeadersFooters
        With .DateAndTime
            .Format = ppDateTimedMMMMyyyy
            .Text = Me.txtdatum
            .UseFormat = msoFalse
            .Visible = msoTrue
        End With
        With .Footer
            .Text = Me.txttitel
            .Visible = msoTrue
        End With
        .SlideNumber.Visible = msoTrue
    End With
    With ActivePresentation.Slides.Range.HeadersFooters
        With .DateAndTime
            .Format = ppDateTimedMMMMyyyy
            .Text = Me.txtdatum
            .UseFormat = msoFalse
            .Visible = msoTrue
        End With
        With .Footer
            .Text = Me.txttitel
            .Visible = msoTrue
        End With
        .SlideNumber.Visible = msoTrue
    End With
    With ActivePresentation.NotesMaster.HeadersFooters
        .DateAndTime.Text = "22 september 2002"
        .Footer.Text = Me.txttitel
    End With
    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = Me.txttitel
    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = Me.txtsubtitel
    Unload Me
End Sub

bij het dikgedrukte geeft hij een foutmelding

De foutmelding is HeadersFooters (unknown member) :invalid request


ik ben zelf een dummie in vba en kom er niet uit. wie kan mij helpen?

 

[HSV]

Je kunt in het Menu Invoegen → 'Kop en voettekst' aanvinken welke opties je wil.
Ik vermoed dat titel niet aangevinkt staat.
Ook datum staat vast niet aangevinkt.

Succes.

 

[Nudie]

IK heb een printscreen gemaakt.
Zit ik in het goede scherm?

 

[HSV]

Kan niet beter.

 

[Nudie]

Dit is het invoerscherm wat ze vanuit werk in een macro hadden gezet.

 

[HSV]

Vink aan wat ik voorstelde, druk op toepassen en laat de slide eens lopen.