1. 程式人生 > >批量修改Excel中的圖片大小方法

批量修改Excel中的圖片大小方法

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