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

相关推荐
专注VB编程开发20年4 天前
EXCEL VBA-从X行复制数据插入到Y_Z行
excel·复制数据·vba·插入数据·函数优化
专注VB编程开发20年7 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
林月明7 天前
【VBA】点击按钮,实现将Excel表A数据按格式填入表B
excel·vba
专注VB编程开发20年9 天前
专业VBA代码优化服务邀约‌,OFFICE excel计算优化,wrod报表生成
vba·vba优化
专注VB编程开发20年11 天前
VBA ADO使用EXCEL 8.0驱动读取 .xlsx 格式表格数据-有限支持
excel·vba·ado·excel 8.0·ace.oledb
yivifu15 天前
使用VBA辅助编辑出具有完美导航功能的Word长文档
word·办公软件·vba
Access开发易登软件1 个月前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表1 个月前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
Lilixxs1 个月前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb
只会HelloWorld的华娃2 个月前
VBA模板记录
microsoft·vba