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