Dav*_*d G 4 xml excel vba ribbon
我在包含工作簿中所有可见工作表的功能区中有这个下拉列表。用户可以在其中选择一个工作表以跳转到它。这很重要,因为此工作簿中有大量工作表。不幸的是,当工作表的名称很长时,它不会完全显示。我想让它更宽。
我使用 Microsoft Office 的 CustomUI 编辑器使用我不太熟练的 XML 技能创建它。这是代码的一部分:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="InitS3Ribbon">
<ribbon>
<tabs>
<tab id="s3Tab" label="S3 Menu">
<group id="grGeneral" label="General">
<dropDown id="navigation" label="Navigation" getItemCount="GetNavigateItemCount" getItemLabel="GetNavigateLabel" onAction="MenuNavigate" getSelectedItemIndex="SetNavigateIndex" showLabel="true" />
<button id="bShowHideSheet" imageMso="PivotPlusMinusButtonsShowHide" label="Show/Hide sheets" size="normal" onAction="MenuShowHideSheets" />
<button id="bPreviousPage" imageMso="LeftArrow2" label="Previous sheet" size="large" onAction="MenuPreviousSheet" />
<button id="bNextPage" imageMso="RightArrow2" label="Next sheet" size="large" onAction="MenuNextSheet" />
</group>
Run Code Online (Sandbox Code Playgroud)
我发现这个资源说它可以用SizeString属性进行更改,但我什至不确定如何或在何处将其包含在我的代码中。在我看来它应该在 VBA 部分?我不确定我是否理解,我希望得到指导。我不确定现在是否编辑 XML 或 VBA 以及如何编辑。
可以在此处找到官方 XML 规范:https : //msdn.microsoft.com/en-us/library/cc313070(v=office.12).aspx
看起来 sizeString 可以直接用作下拉 XML 标记的属性。所以像:
<dropDown id="navigation" label="Navigation" sizeString="MY_MAX_LENGTH_STRING" getItemCount="GetNavigateItemCount" getItemLabel="GetNavigateLabel" onAction="MenuNavigate" getSelectedItemIndex="SetNavigateIndex" showLabel="true" />
Run Code Online (Sandbox Code Playgroud)
你只需要知道你会遇到的最长字符串是什么,然后把它放在 as 中MY_MAX_LENGTH_STRING。考虑到您使用下拉列表来保存最多 31 个字符的工作表名称,您可能可以使用该长度作为起点。