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

相关推荐
Access开发易登软件4 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表4 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
Lilixxs4 天前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb
只会HelloWorld的华娃17 天前
VBA模板记录
microsoft·vba
Access开发易登软件1 个月前
Access开发右下角浮窗提醒
microsoft·vba·access·access开发
Access开发易登软件2 个月前
Access开发一键删除Excel指定工作表
服务器·前端·后端·excel·vba·access·access开发
Prodigy_kyw2 个月前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
yivifu3 个月前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
Learn-Share_HY3 个月前
[Excel VBA]如何製作買三送一優惠條件的POS結帳介面?
excel·vba·office·自動化·自動化辦公
shandianchengzi3 个月前
【工具】Quicker/VBA|PPT 在指定位置添加有颜色的参考线
powerpoint·vba·ppt·quicker