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

wuchunyu0022024-08-09 15:36

1. 应用背景

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

2. 宏的制作

可以是.xlsm文件，将该文件放到 $C:\\Program Files\\Microsoft Office\\root\\Office16\\XLSTART$ 下，下次启动Excel文件时就可以自启动了。

vbscript 复制代码

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即可。