在 Excel 中使用宏等比例缩放图片

在 Excel 中定义将图片等比例缩小的快捷键
示例中的缩小比例约为 71%
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+D
'
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 445.5
    Selection.ShapeRange.Width = 669#
    Selection.ShapeRange.Rotation = 0#
End Sub