Maybe
Code:
Sub ATopLeft()
Dim oshp1 As Shape
Dim oshp2 As Shape
If ActiveWindow.Selection.ShapeRange.Count <> 2 Then Exit Sub
Set oshp1 = ActiveWindow.Selection.ShapeRange(1)
Set oshp2 = ActiveWindow.Selection.ShapeRange(2)
oshp1.Height = 171.5
oshp2.Height = 171.5
oshp1.Top = oshp2.Top
oshp2.Left = oshp1.Left + oshp1.Width
ActiveWindow.Selection.ShapeRange.Cut
With ActiveWindow.View.Slide.Shapes.PasteSpecial(ppPastePNG)
.Left = cm2Points(7) - .Width / 2
.Top = cm2Points(11) - 171.5
.Line.Visible = True
.Line.ForeColor.RGB = RGB(0, 176, 80)
.Line.Weight = 3
End With
End Sub
Function cm2Points(inVal As Single) As Single
cm2Points = inVal * 28.346
End Function