VBA PowerPoint：在一张幻灯片上调整大小并对齐2张图像

Question

I am trying to get two pictures to resize and align side by side...think like a before and after comparison on one slide. The pictures are already imported to the slide. I have two macros written, one for the left one for the right, based on the selected shape but was looking to combine to one.

Here is what I have (rookie) to combine

'Updated Macro 
Sub SidebySide()
Dim oSp As Shape
Dim oSld As Slide

If CheckIsPic(oSp) = True Then
With oSp
    Do
        .Height = (5.6 * 72)
        .Width = (4.8 * 72)
        .Left = (0.2 * 72)
        .Top = (1.3 * 72)
    Loop While oSp = ActiveWindow.Selection.ShapeRange(1)
End With

With oSp
    Do
            .Height = (5.6 * 72)
            .Width = (4.8 * 72)
            .Left = (5# * 72)
            .Top = (1.3 * 72)
    Loop While oSp <> ActiveWindow.Selection.ShapeRange(1)
End With

End If

End Sub

Function CheckIsPic(oSp As Shape) As Boolean
If oSp.Type = msoPicture Then CheckIsPic = True
End If
End Function

It is not running so I know I probably have something wrong in there, but essentially I am trying to run a loop if it is a pic on the slide...do A to the selection, do B to the non selection.

Any ideas? I am sure there is a much better way to go about this. Thanks

Answer 1

I think that moving the With OUTSIDE the Do...Loop will solve the issue. (do it twice)

With oSp
    Do
        .Height = (5.6 * 72)
        .Width = (4.8 * 72)
        .Left = (0.2 * 72)
        .Top = (1.3 * 72)
    Loop While oSp = ActiveWindow.Selection.ShapeRange(1)
End With