VBA宏代码隐藏图片组异常求助：无法同时隐藏指定两组图片

问题根源及修复步骤 #

1. 单元格值类型不匹配
   VLOOKUP返回的可能是文本型数字，而原代码直接用整数（90/135/180）做比较，导致条件判断失效。比如B24是文本"90"时，Range("B24").Value = 90会返回False，无法触发对应隐藏逻辑。

修复：将单元格值强制转换为整数后再判断，同时用Select Case让逻辑更清晰：

Select Case CInt(Range("B24").Value)
    Case 90
        ActiveSheet.Shapes("Group 13").Visible = False
        ActiveSheet.Shapes("Group 25").Visible = False
    Case 135
        ActiveSheet.Shapes("Group 5").Visible = False
        ActiveSheet.Shapes("Group 25").Visible = False
    Case 180
        ActiveSheet.Shapes("Group 5").Visible = False
        ActiveSheet.Shapes("Group 13").Visible = False
End Select

2. 未重置图片组可见状态
   如果之前运行宏时已经隐藏了某组图片，再次运行时新的隐藏逻辑只会处理未隐藏的组，看起来像是只隐藏了一组。

修复：在判断条件前，先将所有目标图片组设为可见：

' 重置所有图片组可见状态
ActiveSheet.Shapes("Group 5").Visible = True
ActiveSheet.Shapes("Group 13").Visible = True
ActiveSheet.Shapes("Group 25").Visible = True

3. 形状名称拼写错误
   检查图片组的实际名称是否和代码中的一致：

• 打开Excel开发工具选项卡，点击「选择对象」，选中对应的图片组
• 在属性窗口中查看Name属性，确认是否是Group 5、Group 13、Group 25（注意空格、数字是否正确）

4. 优化代码避免Select操作
   原代码中用Select和Selection容易引发错误，直接操作Shape对象更稳定：

' 替代原旋转代码，去掉Select
ActiveSheet.Shapes("Group 2").IncrementRotation x

完整修复后的代码 #

Sub Macro1()
    Dim response As VbMsgBoxResult
    response = MsgBox("Are you sure the SP# is correct?", vbYesNo, "Angle Confirmation")
    If response = vbNo Then Exit Sub
    
    Dim x As Integer
    x = Range("D23").Value
    
    ' 直接旋转Group 2，无需Select
    ActiveSheet.Shapes("Group 2").IncrementRotation x
    
    ' 重置所有目标图片组的可见状态
    ActiveSheet.Shapes("Group 5").Visible = True
    ActiveSheet.Shapes("Group 13").Visible = True
    ActiveSheet.Shapes("Group 25").Visible = True
    
    ' 用Select Case+类型转换处理隐藏逻辑
    Select Case CInt(Range("B24").Value)
        Case 90
            ActiveSheet.Shapes("Group 13").Visible = False
            ActiveSheet.Shapes("Group 25").Visible = False
        Case 135
            ActiveSheet.Shapes("Group 5").Visible = False
            ActiveSheet.Shapes("Group 25").Visible = False
        Case 180
            ActiveSheet.Shapes("Group 5").Visible = False
            ActiveSheet.Shapes("Group 13").Visible = False
    End Select
End Sub

内容的提问来源于stack exchange，提问作者Nço