Breaking News: Grepper is joining You.com. Read the official announcement!

powerpoint macro to move all the image in one slide to separate slides

Niransha answered on April 18, 2023 Popularity 6/10 Helpfulness 1/10

answer powerpoint macro to move all the image in one slide to separate slides

powerpoint macro to move all the image in one slide to separate slides

Comment

#change the path and file type, this will load 1 image to one slide in A single folder, 

Sub ImportABunch()

Dim strTemp As String
Dim strPath As String
Dim strFileSpec As String
Dim oSld As Slide
Dim oPic As Shape

' Edit these to suit:
strPath = "E:\My Pictures\"
strFileSpec = "*.jpg"

strTemp = Dir(strPath & strFileSpec)

Do While strTemp <> ""
    Set oSld = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, ppLayoutBlank)
    Set oPic = oSld.Shapes.AddPicture(FileName:=strPath & strTemp, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=0, _
    Top:=0, _
    Width:=-1, _
    Height:=-1)
    ' width/height of -1 tells PPT to import the image at its "natural" size

' Optionally, make it fill the slide - even if that means changing the proportions of the picture
' To do that, uncomment the following:
'  With oPic
'      .LockAspectRatio = msoFalse
'      .height = ActivePresentation.PageSetup.Slideheight
'      .width = ActivePresentation.PageSetup. Slidewidth
'  End With

' Or (with thanks to David Marcovitz) make the picture as big as possible on the slide
' without changing the proportions
' Leave the above commented out, uncomment this instead:
'   With oPic
'     If 3 * .width > 4 * .height Then
'         .width = ActivePresentation.PageSetup.Slidewidth
'         .Top = 0.5 * (ActivePresentation.PageSetup.Slideheight - .height)
'     Else
'       .height = ActivePresentation.PageSetup.Slideheight
'         .Left = 0.5 * (ActivePresentation.PageSetup.Slidewidth - .width)
'     End If
'   End With

' Optionally, add the full path of the picture to the image as a tag:
'With oPic
'  .Tags.Add "OriginalPath", strPath & strTemp
'End With

    ' Get the next file that meets the spec and go round again
    strTemp = Dir
Loop

End Sub

https://www.rdpslides.com/pptfaq/FAQ00352_Batch_Insert_a_folder_full_of_pictures-_one_per_slide.htm

Popularity 6/10 Helpfulness 1/10 Language whatever

Source: Grepper

Tags: image move powerpoint slide whatever

Link to this answer
Share Copy Link

Contributed on Apr 18 2023

Niransha

0 Answers Avg Quality 2/10

powerpoint macro to move all the image in one slide to separate slides

Contents

More Related Answers

powerpoint macro to move all the image in one slide to separate slides

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.