无需选中操作修改Excel表单按钮字体颜色的方法

问题背景 #

我希望在代码中避免选中操作，因为直接操作对象通常更高效且健壮。现有一段通过选中按钮来修改字体颜色的代码可以正常运行，但我想实现不选中按钮直接修改的需求：

thisworkbook.Sheets("sheet 1").shapes.Range.(Array("Button 3")).Select
With Selection.Font
 .color = 10
End with

尝试直接修改时的错误 #

尝试跳过选中步骤直接修改属性时，触发运行时错误438：对象不支持该属性或方法，代码如下：

thisworkbook.Sheets("sheet 1").shapes.Range.(Array("Button 3")).Font.color = 10

最终解决方案 #

无需选中按钮，直接修改字体颜色的正确代码如下：

thisworkbook.Sheets("sheet 1").shapes.Range.("Button 3").TextFrame.Characters.Font.color = 10

核心修改说明 #

• 移除ShapeRange中的Array()，直接传入单个按钮名称即可定位目标对象
• 新增TextFrame.Characters.层级引用：表单按钮的字体属性并非直接挂载在Shape对象上，需要通过文本框架（TextFrame）下的字符（Characters）对象来访问字体设置

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