以编程方式使用VBA将几个按钮添加到Excel工作表

Question

我设法以编程方式将一个按钮添加到带有关联宏的工作表，但是当我尝试添加更多带有关联宏的按钮时遇到问题，这是我使用的代码：

'Adding the first button
 With newWorkBook.Worksheets(1).Buttons
    .Add 350, 15, 173.25, 41.25
    .Caption = "Exporter"
    .OnAction = "'" & ThisWorkbook.FullName & "'!export_Click_FCM"
 End With

 'Adding the second button
 With newWorkBook.Worksheets(1).Buttons
    .Add 350, 66.25, 173.25, 41.25
    .Caption = "Ouvrir le fichier Export"
    .OnAction = "'" & ThisWorkbook.FullName & "'!open_export_FCM"
 End With

使用此代码时，第一个按钮会显示第二个按钮的标题并且其宏关联，第二个按钮会显示默认标题＆＃34; button2＆＃34;并且没有宏关联，我该如何解决这个问题？

Answer 1

每个区块的前两行应该是一行：

With newWorkBook.Worksheets(1).Buttons.Add(350, 15, 173.25, 41.25)

因此您可以参考已添加的Button，而不是Buttons集合。