Power Point - Macro para cargar fotos

ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\Fotos\1.JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-449, Top:=-599, Width:=1440, Height:=1920).Select

    With ActiveWindow.Selection.ShapeRange

        .Fill.Transparency = 0#

        .Height = 1149.12

        .Width = 861.75

    End With

    With ActiveWindow.Selection.ShapeRange

        .Fill.Transparency = 0#

        .Height = 478.88

        .Width = 359.38

    End With

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft 232.38

        .IncrementTop 342#

    End With

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft 198.5

        .IncrementTop 238.12

    End With

    With ActiveWindow.Selection.ShapeRange

        .ScaleWidth 0.67, msoFalse, msoScaleFromTopLeft

        .ScaleHeight 0.67, msoFalse, msoScaleFromBottomRight

    End With

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft 130.38

        .IncrementTop 51#

    End With

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft 79.38

        .IncrementTop 22.75

    End With

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft -39.75

        .IncrementTop -11.38

    End With

    ActiveWindow.Selection.ShapeRange.ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft

    ActiveWindow.Selection.ShapeRange.ScaleWidth 1.07, msoFalse, msoScaleFromBottomRight

    ActiveWindow.Selection.ShapeRange.ScaleHeight 0.91, msoFalse, msoScaleFromBottomRight

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.IncrementTop -1#

    ActiveWindow.Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft

    ActiveWindow.Selection.ShapeRange.ScaleHeight 0.98, msoFalse, msoScaleFromTopLeft

    ActiveWindow.Selection.Unselect

    ActiveWindow.View.GotoSlide Index:=ActiveWindow.Selection.SlideRange.Duplicate.SlideIndex

    ActiveWindow.Selection.SlideRange.Shapes("Picture 28").Select

    With ActiveWindow.Selection.ShapeRange

        .IncrementLeft -1.38

        .IncrementTop -0.62

    End With

    ActiveWindow.Selection.ShapeRange.Delete

End Sub