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>