有没有办法编辑窗体控制button上的标题？

是否有可能（在表单更改事件），更改表单控件button的标题文本？

理想情况下，我想添加一个variables到现有的button标题取决于工作簿中的其他数据。

Answer 1

那么，右键单击电子表格底部的Sheet1选项卡，然后select查看代码

复制粘贴下面的代码

Private Sub Worksheet_Activate() Buttons("Button 1").Caption = "NEW TEXT" End Sub 

当Sheet1被激活时，此事件启动，并将button上的标题更改为NEW TEXT

显然你可以通过名字或索引来引用你的button。 如果要修改不同对象上的文本，您可以修改"Button 1" 。

如果您replace"NEW TEXT"您可以为其分配variables或expression式的评估。

例如

如果在Sheet2键入单元格A1中的任何内容，则可以修改Sheet1后面的代码并使用

 Private Sub Worksheet_Activate() Buttons("Button 1").Caption = Sheets("Sheet2").Range("A1") End Sub 

这样，每次激活Sheet1时，button上的文本将从Sheet1，Cell A1中拾取

在这里找出button的名字

Answer 2

在这个例子中，名称为“Button 1”的Form-Control Button的Caption根据Sheet1中改变的单元格的值而改变。 该button在Sheet1上，代码来到Sheet1的Class-Module。 HTH

 ' Sheet1 module: Private Sub Worksheet_Change(ByVal Target As Range) Const buttonName As String = "Button 1" Dim targetButton As Excel.Button On Error Resume Next Set targetButton = Target.Worksheet.Buttons(buttonName) On Error GoTo 0 If targetButton Is Nothing Then _ Exit Sub If Target.Value <> "" Then _ targetButton.Caption = Target.Value End Sub 

Answer 3

尝试这个 ：

 ActiveSheet.Shapes("Button 1").Select Selection.Characters.Text = "My New Caption" 

Answer 4

我需要TextFrame.Characters.Text来获得标题

 Worksheets("Sheet1").Shapes("button 1").TextFrame.Characters.Text = "Click"