创建宏以删除预先存在的按钮，然后在excel-vba中添加新的按钮

Question

我正在使用Excel-VBA，我正在尝试创建一个宏，它将删除所选区域中的按钮并创建新按钮。虽然我已经创建了删除所选区域中按钮的代码，但我无法创建新按钮，因为新按钮编号与宏中记录的按钮编号不同。有什么办法吗？

Answer 1

以下代码在Excel文件的第一张纸上创建一个按钮，并根据您的喜好对其进行命名。只需确保该表上还没有该名称的按钮。

Public Sub NewButtons()

Dim btnNewButton As Button

With Worksheets(1).Range("F5")
    Set btnNewButton = .Parent.Buttons.Add(.Left, .Top, 100, 50)
End With
With btnNewButton
    .Caption = "Press me!"
    .Name = "NameOfTheButton"
    .OnAction = "NameOfTheSubToCallWhenPressed"
End With

End Sub

新按钮与细胞F5对齐（您也可以根据需要调整）。按钮的宽度和高度分别为100和50。

我希望我能正确理解你，这可以解决你的问题。