VBAパワーポイント：1つのスライドに2つの画像を整列して整列させる

Question

2つの画像を並べて並べて整列させようとしています...前後のスライドの比較のように思えます。写真はすでにスライドにインポートされています。私は2つのマクロが書かれていますが、選択された形状に基づいて右側に1つ、左に1つ、組み合わされて1つになります。ここで

は私が

'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 

を結合する（ルーキー）を持っているもの、PICであれば、私はおそらくそこに間違った何かを持って知っているが、基本的に私はループを実行しようとしていますので、実行されていないですスライド上で... Aを選択に、Bを非選択にします。

アイデア？私はこれについてもっと良い方法があると確信しています。ありがとう

Answer 1

Withの外側をDo...Loopに移動すると問題が解決すると思います。 （2回する）

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