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

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

相关推荐
啊波次得饿佛哥15 天前
excel中的VBA指令示例(一)
excel·vba
啊波次得饿佛哥16 天前
excel中的VBA指令示例(二)
excel·vba
jimin_callon18 天前
VBA第三十九期 VBA自动把工作表转换成PPT
python·excel·vba·wps·deepseek
jimin_callon20 天前
VBA第三十八期 VBA自贡分把表格图表生成PPT
开发语言·python·powerpoint·编程·vba·deepseek
Access开发易登软件1 个月前
【access开发】导入excel 并生成表
前端·低代码·html·excel·vba·access·access数据库
初级代码游戏1 个月前
VSTO(C#)Excel开发 系列目录 含源码发布
c#·excel·源码·vba·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发13:实现定时器
c#·excel·vba·定时器·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发11:自定义任务窗格与多个工作簿
c#·excel·vba·vsto
初级代码游戏1 个月前
VSTO(C#)Excel开发9:处理格式和字体
c#·excel·vba·vsto
锁匙isthekey1 个月前
VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件
需求分析·vba