vba - 如何动态填充自定义功能区上的菜单控件？

Question

For Each ws In Worksheets
ListBox1.AddItem ws.Name
Next ws

ListBox1_Click()
Worksheets(ListBox1.Value).Activate

我可以在自定义功能区上使用菜单控件吗
xml:

<menu id="mnuCats" label="abc" size="large" imageMso="PropertySheet"  >
<button id="go01" label="sky"  onAction="go01" imageMso="TextAlignGallery" />
<button id="go02" label="sea"  onAction="go02" imageMso="TextAlignGallery" />
</menu>

那么，如何使用工作表名称填充菜单以及如何以字符串形式获取按钮的标签属性，以激活相应的工作表。

Answer 1

您需要一个下拉功能区控件。如果您在 Excel 文件中输入以下 customUI XML(可能通过使用自定义 UI 编辑器 http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/25/customuieditor.aspx )，您可以获得需要实现的正确 VBA 回调签名的列表，以便填充值并响应操作:

<dropDown id="drpTest" label="Test" showImage="false" getSelectedItemIndex="TestGetSelItem" onAction="TestOnAction" getItemCount="TestGetItemCount" getItemID="TestGetItemID" getItemLabel="TestGetItemLabel" sizeString="HowBigDropdownDoYouWant" supertip="Select Test.">
</dropDown>