VBA 指定快捷键在Excel中粘贴指定缩放图片

1. 应用背景

做测试的时候需要在Excel文件中贴图，但是直接粘贴的话图片又太大，需要手动调整，这时就可以利用这个宏来实现一次性粘贴并调整好图片的大小。

2. 宏的制作

可以是.xlsm文件，但是需要先打开该宏文件。最好是做成Add-ins可以自启动。

Option Explicit

Sub 圖片調整大小后粘貼()

    '
    ' Keyboard Shortcut: Ctrl+Shift+V
    '
    
    Dim CB As Variant
    
    CB = Application.ClipboardFormats
    If CB(1) = True Then
        MsgBox ("剪切板是空的。")
        Exit Sub
    ElseIf CB(1) <> xlClipboardFormatBitmap Then
        MsgBox ("剪切板不是圖片。")
        Exit Sub
    End If
    
    ActiveSheet.Paste
    Selection.ShapeRange(1).LockAspectRatio = msoTrue
    '此處的0.6表示圖片縮小60%
    Selection.ShapeRange(1).Height = Selection.ShapeRange(1).Height * 0.6
End Sub

3. 指定快捷键

1）进入“开发工具”选项卡
2）点击"宏"，打开"宏"对话框
3）从宏列表中选择要指定快捷键的宏，例如：圖片調整大小后粘貼
4）然后点击“选项”
5）在“快捷键”框中设置一个快捷键，例如：Ctrl+Shift+V
6）点击“确定”

4. 应用

截图图片后，在Excel文件中按下快捷键Ctrl+Shift+V即可。