그림크기 vba

Public sWidth As Single, sHeight As Single

Sub getSize()

On Error GoTo MsgErr:

With ActiveWindow.Selection.ShapeRange(1)

sWidth = .Width

sHeight = .Height

End With

MsgBox sWidth & ", " & sHeight & " 사이즈를 저장했습니다."

MsgErr:

If Err Then MsgBox Err.Description

End Sub

Sub applySize()

If sWidth = 0 Or sHeight = 0 Then MsgBox "get Size first!": Exit Sub

Dim shp As Shape

On Error GoTo MsgErr:

For Each shp In ActiveWindow.Selection.ShapeRange

shp.LockAspectRatio = False

shp.Width = sWidth

shp.Height = sHeight

Next shp

MsgErr:

If Err Then MsgBox Err.Description

End Sub