VBA 调整多个图片大小

1. 宏的制作

Sub 調整多个圖片大小()

    '
    ' Keyboard Shortcut: Ctrl+Shift+S
    '
    
    Dim shp As Variant

    If TypeName(Selection) = "Range" Then
        MsgBox "請僅選擇一個對象。", vbCritical
        Exit Sub
    End If
    
    For Each shp In Selection.ShapeRange
        '此處的0.6表示圖片縮小60%
        shp.Height = shp.Height * 0.6
    Next
End Sub

2. 指定快捷键

方法参照VBA 指定快捷键在Excel中粘贴指定缩放图片-CSDN博客