我来帮你搞定取消勾选删除图片的功能！先看看你现有代码里的几个小问题，再给你完整的可运行方案：

现有代码的核心问题 #

你当前的代码在创建CheckBox时尝试动态修改OnAction，这是错误的——OnAction应该固定指向一个处理宏，而不是赋值True/False。所有的勾选/取消逻辑都应该放在这个处理宏里，而不是创建CheckBox的时候判断。

完整实现步骤 #

1. 先运行这个代码创建CheckBox

这段代码会帮你生成指定位置的CheckBox，并且给它设置好关联的宏，同时给CheckBox起个专属名字方便后续关联图片：

Sub CreateDisplacementCheckbox()
    Dim chbx As CheckBox
    Set chbx = ActiveSheet.CheckBoxes.Add(240, 15, 144, 15.75)
    chbx.Characters.Text = "DisplacementPicturesIns"
    ' 固定指向处理宏，所有状态变化都由这个宏处理
    chbx.OnAction = "DisplacementPicturesIns"
    ' 给CheckBox命名，用于关联对应的图片
    chbx.Name = "chk_DisplacementPic"
End Sub

2. 编写处理宏（核心逻辑）

这个宏会根据CheckBox的状态，执行插入图片或删除对应图片的操作，关键是通过命名规则把CheckBox和它对应的图片绑定，避免误删其他图片：

Sub DisplacementPicturesIns()
    Dim targetChk As CheckBox
    Dim targetPic As Shape
    ' 替换成你实际的图片路径，注意路径要用双引号包裹
    Dim picPath As String: picPath = "C:\你的图片路径\displacement.jpg"
    
    ' 获取触发当前宏的CheckBox控件
    Set targetChk = ActiveSheet.CheckBoxes(Application.Caller)
    
    If targetChk.Value = xlOn Then
        ' 勾选状态：插入图片（先检查是否已存在，避免重复添加）
        On Error Resume Next
        Set targetPic = ActiveSheet.Shapes("pic_" & targetChk.Name)
        On Error GoTo 0
        
        If targetPic Is Nothing Then
            ' 插入图片，设置位置（这里放在CheckBox下方20像素，尺寸可自行调整）
            Set targetPic = ActiveSheet.Shapes.AddPicture( _
                Filename:=picPath, _
                LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=targetChk.Left, Top:=targetChk.Top + 20, Width:=100, Height:=100)
            ' 给图片命名，和CheckBox关联起来
            targetPic.Name = "pic_" & targetChk.Name
        End If
    Else
        ' 取消勾选：删除对应的图片
        On Error Resume Next
        Set targetPic = ActiveSheet.Shapes("pic_" & targetChk.Name)
        On Error GoTo 0
        
        If Not targetPic Is Nothing Then
            targetPic.Delete
        End If
    End If
End Sub

关键细节说明 #

• 图片与CheckBox绑定：通过给图片命名为pic_+CheckBox的名字，确保每次操作只针对当前CheckBox对应的图片，不会影响其他图片。
• 避免重复插入：插入前先检查是否已经存在该图片，防止多次勾选重复添加。
• 动态获取触发控件：用Application.Caller获取当前触发宏的CheckBox，即使你后续添加多个同类CheckBox，这个宏也能正常工作，不需要修改代码。

内容的提问来源于stack exchange，提问作者袗薪写褉械泄 袪芯屑邪薪芯胁