1. 宏的制作
Option Explicit
Sub 調整單個圖片大小()
'
' Keyboard Shortcut: Ctrl+Shift+R
'
If TypeName(Selection) = "Range" Then
MsgBox "請僅選擇一個對象。", vbCritical
Exit Sub
End If
'此處的0.6表示圖片縮小60%
Selection.ShapeRange.Height = Selection.ShapeRange.Height * 0.6
End Sub
2. 指定快捷键