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年2 天前
JSA变成类似vba环境给第三方软件集成IDE功能,脚本功能
ide·microsoft·node.js·vba·wps·vb6·jsa
林月明4 天前
【VBA】自动设置excel目标列的左邻列格式
开发语言·excel·vba·格式
Access开发易登软件15 天前
Access调用Azure翻译:轻松实现系统多语言切换
后端·python·低代码·flask·vba·access·access开发
专注VB编程开发20年23 天前
EXCEL VBA-从X行复制数据插入到Y_Z行
excel·复制数据·vba·插入数据·函数优化
专注VB编程开发20年25 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
林月明1 个月前
【VBA】点击按钮,实现将Excel表A数据按格式填入表B
excel·vba
专注VB编程开发20年1 个月前
专业VBA代码优化服务邀约‌,OFFICE excel计算优化,wrod报表生成
vba·vba优化
专注VB编程开发20年1 个月前
VBA ADO使用EXCEL 8.0驱动读取 .xlsx 格式表格数据-有限支持
excel·vba·ado·excel 8.0·ace.oledb
yivifu1 个月前
使用VBA辅助编辑出具有完美导航功能的Word长文档
word·办公软件·vba
Access开发易登软件2 个月前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发