如何将宏绑定到Ctrl+V，自动格式化粘贴到工作簿的图片？

因为Workbook_Change事件仅对单个工作簿生效，要让所有打开的工作簿都能触发自动格式化，得用应用程序级别的事件监听，具体步骤如下：

1. 创建应用程序事件类模块 #

• 打开PERSONAL.XLSB，按Alt+F11打开VBA编辑器
• 右键点击PERSONAL.XLSB项目 → 插入 → 类模块
• 在属性窗口把类模块名称改成AppEvents（默认是Class1）
• 在类模块中粘贴以下代码：

Private WithEvents App As Application

Private Sub Class_Initialize()
    Set App = Application
End Sub

Private Sub App_SheetPaste(ByVal Sh As Object, ByVal Target As Range)
    ' 判断刚粘贴的是否为图片/形状
    On Error Resume Next
    Dim shp As Shape
    Set shp = Sh.Shapes(Sh.Shapes.Count) ' 获取最后添加的形状（即刚粘贴的对象）
    On Error GoTo 0
    
    If Not shp Is Nothing Then
        ' 调用格式化宏
        FormatScreenshot
    End If
End Sub

2. 初始化全局事件监听 #

• 找到PERSONAL.XLSB里的ThisWorkbook模块并打开
• 粘贴以下代码，确保打开PERSONAL.XLSB时自动启动全局事件监听：

Private appEvents As AppEvents

Private Sub Workbook_Open()
    Set appEvents = New AppEvents
End Sub

3. 优化原有格式化宏（增加容错处理） #

把你原有的FormatScreenshot宏修改为以下版本，避免选中非图片对象时出错：

Sub FormatScreenshot()
    On Error Resume Next
    Dim r As Object
    Set r = Selection
    
    If Not r Is Nothing Then
        r.ShapeRange.Line.Visible = msoTrue
        r.ShapeRange.Line.Weight = 2
    End If
    On Error GoTo 0
End Sub

注意事项 #

• 确保PERSONAL.XLSB在Excel启动时自动加载（默认是自动开启的，若未生效可在Excel选项→信任中心→信任中心设置→受信任位置中确认）
• 该方案会在任意工作簿粘贴图片时自动触发格式化，无需额外按下快捷键
• 若粘贴的是文本、数据等非图片内容，宏会自动跳过，不影响正常粘贴操作

内容的提问来源于stack exchange，提问作者Pom