Sub Macro4()
'
' Macro4 Macro
' 宏由 app 录制,时间: 2013-8-29
'
' 快捷键: Ctrl+q
'
For Each x In ActiveSheet.Shapes
If InStr(x.Name, "图片") Or InStr(x.Name, "Picture") Then
x.Select
x.LockAspectRatio = msoFalse
x.Height = 54#
x.Width = 83.25
x.Rotation = 0#
End if
Next
End Sub
'
' Macro4 Macro
' 宏由 app 录制,时间: 2013-8-29
'
' 快捷键: Ctrl+q
'
For Each x In ActiveSheet.Shapes
If InStr(x.Name, "图片") Or InStr(x.Name, "Picture") Then
x.Select
x.LockAspectRatio = msoFalse
x.Height = 54#
x.Width = 83.25
x.Rotation = 0#
End if
Next
End Sub