TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ResetNotesPageSlideSizes()
' resets the size of the slide placeholder on notes pages
' to the size specified in the notes master

    Dim dheight As Double
    Dim dwidth As Double
    Dim dTop As Double
    Dim dLeft As Double
    Dim oSlideShape As Shape
    Dim x As Long
    Dim oSl As Slide

    With ActivePresentation.NotesMaster
        ' Find the slide shape, get its size/position
        For x = 1 To .Shapes.Count
            If .Shapes(x).Type = msoPlaceholder Then
                Debug.Print .Shapes(x).Name & vbTab & .Shapes(x).PlaceholderFormat.Type
                If .Shapes(x).PlaceholderFormat.Type = ppPlaceholderTitle Then
                    Set oSlideShape = .Shapes(x)
                    dheight = oSlideShape.height
                    dwidth = oSlideShape.width
                    dTop = oSlideShape.Top
                    dLeft = oSlideShape.Left
                    Set oSlideShape = Nothing
                End If
            End If
        Next
    End With

    For Each oSl In ActivePresentation.Slides
        ' find the slide shape on the notes page
        With oSl
            For x = 1 To oSl.NotesPage.Shapes.Count
                If .NotesPage.Shapes(x).Type = msoPlaceholder Then
                    If .NotesPage.Shapes(x).PlaceholderFormat.Type = ppPlaceholderTitle Then
                        Set oSlideShape = .NotesPage.Shapes(x)
                        oSlideShape.height = dheight
                        oSlideShape.width = dwidth
                        oSlideShape.Top = dTop
                        oSlideShape.Left = dLeft
                        Set oSlideShape = Nothing
                    End If
                End If
            Next
        End With
    Next    ' slide

End Sub