Supercharge your PowerPoint productivity with
Supercharge your PPT Productivity with PPTools - Click here to learn more.

Proud member of

PPTools

Image Export converts PowerPoint slides to high-quality images.

PPT2HTML exports HTML even from PowerPoint 2010 and 2013, gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements

Merge Excel data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more

Resize your presentations quickly and without distortion

Language Selector switches the text in your presentation from one language to another

FixLinks prevents broken links when you distribute PowerPoint presentations

Shape Styles brings styles to PowerPoint. Apply complex formatting with a single click.

Reset the size of the slide images on notes pages to a single standard size

Problem

You have a collection of slides with notes page slide images of different sizes. You'd like them all to be reset to the same size.

Solution

This macro will pick up the size of the slide image on the Notes Master and reset the size of the slide image on each of the Notes Pages to match.

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

See How do I use VBA code in PowerPoint? to learn how to use this example code.

Search terms:


Did this solve your problem? If so, please consider supporting the PPT FAQ with a small PayPal donation.
Page copy protected against web site content infringement by Copyscape Contents © 1995 - 2022 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.

Supercharge your PPT Productivity with PPTools

content authoring & site maintenance by
Friday, the automatic faq maker (logo)
Friday - The Automatic FAQ Maker

Reset the size of the slide images on notes pages to a single standard size
http://www.pptfaq.com/FAQ00684_Reset_the_size_of_the_slide_images_on_notes_pages_to_a_single_standard_size.htm
Last update 07 June, 2011
Created: