VBA - 如何更改按钮文本

Question

我将一个Excel VBA宏分配给一个命令按钮，我需要知道在执行宏时如何将文本更新为“正在加载”。

我测试了以下代码但没有成功：

Worksheets("Sheet1").Button9.Caption = "Loading"

Answer 1

通过Buttons集合：

Worksheets("Sheet1").Buttons("Button9").Text = "Loading"

Answer 2

您应该尝试使用Active X按钮并将此代码添加到该活动X按钮单击事件。此外，将此代码放在此活动X按钮所在的同一工作表中。：

我假设您的按钮开始文本是“原始文本”。您可以在代码中将其替换为您自己的文本。此外，我添加5秒延迟只是为了模仿正在加载的东西。你可以用你的代码替换那个部分。另请注意，在我的情况下，活动的X按钮名称是CommandButton21，在您的情况下它可能是不同的。相应地更新您的代码。

string

Answer 3

这对我有用

Worksheets（“ Sheet1”）。Button9.TextFrame.Characters.Text =“正在加载”

Answer 4

如果是 Active X 按钮：

Dim ws As Worksheets
Set ws = Worksheets("Sheet1")

Worksheets(ws.Name).addbutton.Caption = "Ajouter"

其中 addbutton 是按钮名称。