Excel VBA：如何获取点击图片的引用以设置ZOrder实现自定义复选框？

核心方案 #

不用给每张图片单独录制宏，写一个通用宏就能处理所有22组图片的切换，关键是用Application.Caller获取当前点击的图片对象，直接操作层级，无需选中。

第一步：统一图片命名规则 #

给每组勾选/未勾选的图片设置关联名称，比如：

• 第一组：勾选图命名为Check1_Tick，未勾选图命名为Check1_Untick
• 第二组：Check2_Tick和Check2_Untick
• ...以此类推到第22组

统一命名后，代码能快速找到配对的另一张图。

第二步：编写通用VBA宏 #

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub ToggleCheckbox()
    Dim clickedShape As Shape
    Dim pairedShapeName As String
    Dim pairedShape As Shape
    
    ' 获取当前点击的图片对象
    Set clickedShape = ActiveSheet.Shapes(Application.Caller)
    
    ' 根据当前图片名称生成配对图片的名称
    If Right(clickedShape.Name, 4) = "_Tick" Then
        pairedShapeName = Left(clickedShape.Name, Len(clickedShape.Name) - 4) & "_Untick"
    ElseIf Right(clickedShape.Name, 7) = "_Untick" Then
        pairedShapeName = Left(clickedShape.Name, Len(clickedShape.Name) - 7) & "_Tick"
    End If
    
    ' 找到配对图片并切换层级
    On Error Resume Next ' 避免因命名错误导致宏崩溃
    Set pairedShape = ActiveSheet.Shapes(pairedShapeName)
    On Error GoTo 0
    
    If Not pairedShape Is Nothing Then
        ' 将当前点击的图移到下层，配对图移到上层（实现状态切换）
        clickedShape.ZOrder msoSendToBack
        pairedShape.ZOrder msoBringToFront
    End If
End Sub

第三步：给所有图片绑定宏 #

右键任意一张图片 → 选择「指定宏」→ 选中刚编写的ToggleCheckbox宏 → 确定。重复此操作，给22组的44张图片都绑定这个宏。

原理说明 #

• Application.Caller会直接返回触发宏的图片对象，无需手动写死图片名称，彻底解决22组的重复宏问题。
• 通过名称后缀判断当前状态，自动匹配对应图片，切换ZOrder层级实现显示/隐藏效果。
• 代码包含错误处理，避免因命名失误导致宏运行报错。

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