如何通过Custom UI Editor实现Excel自定义功能区按钮自动适配窗口尺寸？

首先直接给你明确答案：Office自定义UI的按钮并不支持size="auto"这个属性值，没法直接通过设置这个值实现自适应。不过我们可以通过动态Ribbon回调机制，手动实现类似内置按钮的窗口大小适配效果，具体步骤如下：

实现方案 #

1. 修改自定义UI XML代码 #

把所有按钮的size="large"替换为getSize="GetButtonSize"（如果需要不同组有不同适配逻辑，也可以给不同按钮指定不同的回调函数名），同时要给根节点加上onLoad="RibbonOnLoad"，用来获取Ribbon对象的引用，方便后续刷新。

修改后的核心XML片段示例：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="Custom Tab" insertAfterMso="TabView">
        <group id="ImportRequestGroup" label="Import Requests" imageMso="Refresh">
          <button id="RefreshButton" label="Refresh" getSize="GetButtonSize" onAction="RefreshAction" imageMso="Refresh" />
          <button id="ImportRequestButton" label="Import Requests" getSize="GetButtonSize" onAction="ImportRequestAction" imageMso="OutlineDemoteToBodyText" />
        </group>
        <!-- 其他组的按钮都按这个格式替换size属性 -->
      </tab>
    </tabs>
  </ribbon>
</customUI>

2. 编写VBA回调逻辑 #

打开Excel的VBA编辑器，在对应的模块中添加以下代码：

' 全局变量保存Ribbon对象引用，用于后续刷新
Dim customRibbon As IRibbonUI

' Ribbon加载时触发，保存对象引用
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set customRibbon = ribbon
End Sub

' 按钮尺寸回调函数：根据窗口宽度返回合适的尺寸值
Sub GetButtonSize(control As IRibbonControl, ByRef returnedVal)
    ' 这里可以根据自己的需求调整窗口宽度阈值
    Const WINDOW_WIDTH_THRESHOLD As Integer = 1000
    
    ' 对比窗口宽度，返回对应的尺寸参数
    If Application.Width < WINDOW_WIDTH_THRESHOLD Then
        returnedVal = "normal" ' 窗口较小时显示小尺寸按钮
    Else
        returnedVal = "large" ' 窗口足够大时显示大尺寸按钮
    End If
End Sub

' 窗口大小变化时自动刷新Ribbon，触发尺寸重新计算
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    If Not customRibbon Is Nothing Then
        customRibbon.Invalidate ' 刷新整个Ribbon，也可以用InvalidateControl指定单个控件
    End If
End Sub

3. 逻辑说明 #

• RibbonOnLoad：当功能区加载完成时，把Ribbon对象保存到全局变量，这样后续我们才能主动触发它的刷新操作。
• GetButtonSize：这是核心的适配逻辑，通过判断当前Excel窗口的宽度，决定给按钮返回large还是normal尺寸。你可以根据自己的界面布局，调整阈值的数值，甚至给不同组的按钮写不同的回调函数，实现更精细的适配。
• Workbook_WindowResize：监听窗口大小变化事件，一旦窗口尺寸改变，就刷新整个Ribbon，让按钮重新获取尺寸参数，实现动态切换。

小提示 #

顺便提一下你XML里的几个拼写错误：Calander→Calendar、Archave→Archive、Equipmen→Equipment，建议修正这些错误避免后续混淆。

内容的提问来源于stack exchange，提问作者Klemz