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开发易登软件13 天前
【access开发】导入excel 并生成表
前端·低代码·html·excel·vba·access·access数据库
初级代码游戏17 天前
VSTO(C#)Excel开发 系列目录 含源码发布
c#·excel·源码·vba·vsto
初级代码游戏17 天前
VSTO(C#)Excel开发13:实现定时器
c#·excel·vba·定时器·vsto
初级代码游戏17 天前
VSTO(C#)Excel开发11:自定义任务窗格与多个工作簿
c#·excel·vba·vsto
初级代码游戏18 天前
VSTO(C#)Excel开发9:处理格式和字体
c#·excel·vba·vsto
锁匙isthekey21 天前
VBA+FreePic2Pdf 找出没有放入PDF组合的单个PDF工艺文件
需求分析·vba
感谢地心引力22 天前
【VBA】excel获取股票实时行情(历史数据,基金数据下载)
excel·股票·vba·数据
初级代码游戏22 天前
VSTO(C#)Excel开发6:与窗体交互
c#·vba·vsto·无模式对话框
初级代码游戏23 天前
VSTO(C#)Excel开发4:打印设置
excel·vba·vsto
LAM LAB25 天前
【VBA】WPS/PPT设置标题字体
javascript·powerpoint·vba·wps