(펌)파워포인트에서 사진의 크기를 일괄적으로 조정하기

출처 :  http://e2xist.tistory.com/96 

Attribute VB_Name = "Module1"
Sub viewsize()
    MsgBox (ActiveWindow.Selection.ShapeRange.Height)
    MsgBox (ActiveWindow.Selection.ShapeRange.Width)
    MsgBox (ActiveWindow.Selection.ShapeRange.ActionSettings.Application)
    MsgBox (ActiveWindow.Selection.ShapeRange.Left)
    MsgBox (ActiveWindow.Selection.ShapeRange.Top)
End Sub

Sub resize()
    ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse
    ActiveWindow.Selection.ShapeRange.Height = 396.8504
    ActiveWindow.Selection.ShapeRange.Width = 510.2362
    ActiveWindow.Selection.ShapeRange.Left = 31.1811
    ActiveWindow.Selection.ShapeRange.Top = 113.3858
End Sub