如何为ContextMenuPly添加自定义调色板图库？求XML/VBA实现方案

Hey there! 针对你想要在Excel工作表标签右键菜单的「Label Color > Theme Color」中添加自定义颜色，或者创建独立的自定义颜色图库的需求，我整理了两种基于XML+VBA的实现方案，结合你现有的代码来调整：

方案一：给内置「Label Color > Theme Color」菜单添加自定义颜色 #

Excel的内置工作表标签右键菜单（ContextMenuPly）里，「Label Color」的控件ID是30127，我们可以通过XML在它的子菜单中插入自定义颜色按钮。

1. XML配置代码 #

这段XML会在「Label Color」菜单末尾添加分隔线和你的四个自定义颜色选项：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <contextMenus>
    <contextMenu idMso="ContextMenuPly">
      <!-- 找到Label Color菜单，插入自定义选项 -->
      <menu idMso="MenuPlyLabelColor" insertAfterMso="MenuPlyLabelColor">
        <separator id="sepCustomTabColors"/>
        <button id="btnApricot" label="Apricot" onAction="TabColor_1" imageMso="ColorFillOrange"/>
        <button id="btnAgateGrey" label="Agate Grey" onAction="TabColor_2" imageMso="ColorFillGray"/>
        <button id="btnAquamarine" label="Aquamarine Crayola" onAction="TabColor_3" imageMso="ColorFillTeal"/>
        <button id="btnAlizarinRed" label="Alizarin Red" onAction="TabColor_4" imageMso="ColorFillRed"/>
      </menu>
    </contextMenu>
  </contextMenus>
</customUI>

说明：imageMso用了Excel内置的颜色填充图标，你也可以替换成自定义图标路径

2. 配套VBA代码（复用你现有代码） #

直接保留你已写的四个颜色设置Sub即可，我加了空工作表判断避免报错，确保它们放在标准模块中：

Sub TabColor_1()
    If ActiveSheet Is Nothing Then Exit Sub
    ActiveSheet.Tab.Color = RGB(251, 206, 177) 'Apricot
End Sub

Sub TabColor_2()
    If ActiveSheet Is Nothing Then Exit Sub
    ActiveSheet.Tab.Color = RGB(181, 184, 177) 'Agate Grey
End Sub

Sub TabColor_3()
    If ActiveSheet Is Nothing Then Exit Sub
    ActiveSheet.Tab.Color = RGB(120, 219, 226) 'Aquamarine Crayola
End Sub

Sub TabColor_4()
    If ActiveSheet Is Nothing Then Exit Sub
    ActiveSheet.Tab.Color = RGB(227, 38, 54) 'Alizarin Red
End Sub

方案二：创建独立的自定义颜色图库（更灵活推荐） #

如果不想修改内置菜单，我们可以直接在工作表标签右键菜单中添加一个专属的自定义颜色图库，带直观的颜色预览：

1. XML配置代码 #

这段XML会在右键菜单中添加一个新的图库控件，显示你的自定义颜色：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <contextMenus>
    <contextMenu idMso="ContextMenuPly">
      <gallery id="galCustomTabColors" label="Custom Tab Colors" 
               imageMso="ColorGallery" columns="4" rows="1"
               getItemCount="GetColorCount" getItemLabel="GetColorLabel"
               getItemImage="GetColorImage" onAction="SetTabColor"/>
    </contextMenu>
  </contextMenus>
</customUI>

2. 配套VBA代码 #

需要添加菜单加载回调和颜色处理的代码，放在标准模块中：

' 存储自定义颜色的数组
Dim customColors As Variant

Sub Ribbon_Load(ribbon As IRibbonUI)
    ' 初始化自定义颜色：(RGB值, 颜色名称)
    customColors = Array( _
        Array(RGB(251, 206, 177), "Apricot"), _
        Array(RGB(181, 184, 177), "Agate Grey"), _
        Array(RGB(120, 219, 226), "Aquamarine Crayola"), _
        Array(RGB(227, 38, 54), "Alizarin Red") _
    )
End Sub

' 获取颜色数量
Sub GetColorCount(control As IRibbonControl, ByRef count)
    count = UBound(customColors) + 1
End Sub

' 获取颜色名称
Sub GetColorLabel(control As IRibbonControl, index As Integer, ByRef label)
    label = customColors(index)(1)
End Sub

' 生成颜色预览图标
Sub GetColorImage(control As IRibbonControl, index As Integer, ByRef image)
    Dim img As Object
    Set img = CreateObject("MSForms.Image")
    img.Picture = LoadPicture("") ' 空图片作为画布
    img.Width = 16
    img.Height = 16
    img.BackColor = customColors(index)(0)
    
    ' 将图片转换为IPictureDisp对象供Ribbon使用
    Set image = img.Picture
End Sub

' 设置工作表标签颜色
Sub SetTabColor(control As IRibbonControl, selectedId As Integer, selectedIndex As Integer)
    If ActiveSheet Is Nothing Then Exit Sub
    ActiveSheet.Tab.Color = customColors(selectedIndex)(0)
End Sub

部署说明 #

1. 打开Excel，按Alt+F11进入VBA编辑器
2. 插入一个标准模块，粘贴对应方案的VBA代码
3. 插入一个Ribbon XML模块（如果没有这个选项，需要安装RibbonX编辑器插件，或者用自定义UI编辑器工具），粘贴XML代码
4. 保存工作簿为.xlsm格式，重新打开即可生效

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