PowerPoint double click macro

[ADAMC]

Hi all,

Many thanks as always for any responses.

I have a PowerPoint with a single image per slide, each image on a slide needs to be made to fit the size of my powerpoint window and at the moment im doing it manually.

I was thinking perhaps a macro - I double click on an image and it re sizes to fit the size of my slide.

Is this posible? Can anyone help point me in the right direction please

 

[Worf]

Hi
This will fit all images on the presentation. Depending on the height/width of your actual pictures, this macro may need some tweaking, tell me if it is the case.

Sub ResizeAll()
Dim sl As Slide
For Each sl In ActiveWindow.Presentation.Slides
    With sl.Shapes.Item(1)
    Rem Blank slides with only one picture
        .LockAspectRatio = msoTrue
        .Height = ActiveWindow.Presentation.PageSetup.SlideHeight
        .Width = ActiveWindow.Presentation.PageSetup.SlideWidth
        .Left = 0
        .Top = 0
    End With
Next
End Sub

 

[ADAMC]

This was exactly what I needed, thank you very much.

I have saved this as an add in PPAM and managed to use the custom XML editor to add it as an option to my right click menu with some googling and a little patience.

I want to send my macro to a small team of around 30 people my problem is they are not vry computer literate.

Is there an easy way to distribute an add in so i dont have to provide everyone with instructions on how to load an add in?

I was thinking maybe install as an EXE? Ive done som resarch but im stumped What is the bst way to distribute or share an add in with a wider audience?

Any guidance very welcome and appreciatd.

Thanks

 

[Worf]

To distribute the add-in as an executable file, you need to prepare an installer. Unfortunately, I never did it so I can’t go much further on this subject. Anyway, here are two links:

• some information on installers:

Add / install an addin via the registry

• a download page for a real world installer:

PPTools ImageExport