파워포인트 매크로

Sub Picture()
    Dim Dialog As FileDialog
    Set Dialog = Application.FileDialog(ppFileDialogOpen)
    With Dialog
        Call .Extensions.Add("*.JPG", "JPEG Image")
        .DefaultDirectoryRegKey = "Picture"
        .InitialView = ppFileDialogViewPreview
        .IsMultiSelect = msoFalse
        .OnAction = "DoPicture"
        .Launch
    End With
End Sub
Sub DoPicture(Dialog As FileDialog)
    File = Dialog.Files(1)
    Count = Application.ActivePresentation.Slides.Count
    Dim Slide As Slide
    Set Slide = Application.ActivePresentation.Slides.Add(Count + 1, ppLayoutBlank)
    With Slide
        .FollowMasterBackground = msoFalse
        .Background.Fill.UserPicture File
    End With
    Application.ActiveWindow.View.GotoSlide Slide.SlideIndex
End Sub