VBA代碼為控件按鈕分配名稱，而不是讓excel生成從數字派生的按鈕名稱

Question

這似乎是一個基本問題，但是我不知道該怎么做，也無法在互聯網上找到答案。 我有一個工作簿，我想為其生成一系列命令按鈕。 每個命令按鈕都綁定到某個宏。 我真的很想讓按鈕根據它們將要計算的名稱來命名，而不只是生成諸如“按鈕346”之類的名稱。 但是，我不知道如何做到這一點。 盡管這對我的代碼並不重要，但它會使用戶體驗更友好，因此我認為值得一問的是，是否有人知道該怎么做。

這是我的代碼示例。 我想將按鈕命名為“添加投資”

Selection.OnAction = "AB_Investment"
ActiveSheet.Buttons.Add(2676.75, 90, 131.25, 14.25).Select

如果可以進一步說明，請告訴我。 我仍然是vba編碼的業余愛好者，所以如果這是一個非常基本的問題，我感到抱歉。

謝謝，

約西亞

Answer 1

如果需要，可以更進一步。 與往常一樣，建議您遠離Select和Selection ，但要對創建的按鈕使用引用的對象。

Sub AddButton()

Dim Btn As Object

Set Btn = ActiveSheet.Buttons.Add(2676.75, 90, 131.25, 14.25)

With Btn
    .Caption = "Add Investments"
    ' you can modify other properties as well
    .Font.Bold = True
End With

End Sub

Answer 2

考慮：

Sub ButtonNamer()
    ActiveSheet.Buttons.Add(2676.75, 90, 131.25, 14.25).Select
    Selection.Name = "Add Investment"
End Sub

注意：

按鈕的名稱與其標題不同 。

Answer 3

由於您擔心要使“用戶體驗變得更加友好”，所以我猜您指的是按鈕上方顯示的文本 ，該文本需要其Caption屬性：

ActiveSheet.Buttons.Add(2676.75, 90, 131.25, 14.25).Select
Selection.Caption = "Add Investments"

也可以縮短為：

ActiveSheet.Buttons.Add(2676.75, 90, 131.25, 14.25).Caption = "Add Investments"