如何禁用并灰显Excel表单控件Option Button（Office 2021 LTSC）

问题背景 #

使用Microsoft Office LTSC Professional Plus 2021，需通过手动或代码禁用工作表中的表单控件Option Button，要求禁用后按钮呈灰显状态且保留3D外观。此前尝试的代码仅能禁用按钮但无颜色变化，隐藏按钮的效果不符合需求，希望实现类似用户窗体中灰显禁用选项按钮的效果，但适配工作表表单控件。

注意：Excel的ActiveX Option Button与表单控件Option Button外观不同，ActiveX控件标题未垂直居中，且仅点击禁用的Option Button时才呈现3D效果，因此需针对表单控件单独处理。

解决方案 #

表单控件的Enabled属性设为False后不会自动灰显，这是表单控件的特性，需通过修改控件的填充颜色、线条颜色和文本颜色模拟灰显效果，同时保留3D外观。

代码实现 #

以下代码以名为Option Button 11的控件为例，实现目标效果：

Sub DisableOptionButton()
    Dim optBtn As Shape
    Set optBtn = ActiveSheet.Shapes("Option Button 11")
    
    ' 禁用控件，阻止交互
    optBtn.ControlFormat.Enabled = False
    
    ' 设置灰显样式，保留3D外观
    With optBtn
        ' 浅灰色填充模拟禁用状态
        .Fill.ForeColor.RGB = RGB(217, 217, 217)
        ' 深灰色线条维持3D边框感
        .Line.ForeColor.RGB = RGB(128, 128, 128)
        ' 灰色文本匹配禁用视觉
        .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(128, 128, 128)
    End With
End Sub

' 恢复启用状态的代码
Sub EnableOptionButton()
    Dim optBtn As Shape
    Set optBtn = ActiveSheet.Shapes("Option Button 11")
    
    ' 启用控件
    optBtn.ControlFormat.Enabled = True
    
    ' 恢复默认样式
    With optBtn
        .Fill.ForeColor.RGB = RGB(255, 255, 255) ' 白色填充
        .Line.ForeColor.RGB = RGB(0, 0, 0) ' 黑色边框
        .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0) ' 黑色文本
    End With
End Sub

手动设置方法 #

无需代码时可手动操作：

• 右键点击目标Option Button，选择设置控件格式；
• 在控制选项卡勾选已禁用；
• 切换到颜色与线条选项卡，设置填充颜色为浅灰色、线条颜色为深灰色；
• 右键点击控件选择编辑文字，选中文本后设置字体颜色为灰色。

说明 #

表单控件本身无内置灰显样式，通过修改颜色属性模拟禁用状态，同时保留原生3D外观。如需批量处理多个控件，可通过循环遍历目标控件实现。

内容的提问来源于stack exchange，提问作者Al Momin Ali Danyal