Контекстное меню «Сгиб» Цвет метки> Цвет темы

Question

Как поставить свои собственные цвета здесь или создать menu button для моих цветов, поделитесь, пожалуйста, XML или VBA? Цвета, которые я хочу добавить, например:

ActiveSheet.Tab.Color = RGB(251, 206, 177) 'Apricot
ActiveSheet.Tab.Color = RGB(181, 184, 177) 'Agate Grey
ActiveSheet.Tab.Color = RGB(120, 219, 226) 'Aquamarine Crayola
ActiveSheet.Tab.Color = RGB(227, 38, 54) 'Alizarin Red

У меня уже есть menu button для ячейки Context Menu. Я использую XML + VBA.
код VBA :

Sub TabColor_1()
ActiveSheet.Tab.Color = RGB(251, 206, 177) 'Apricot
End Sub

Sub TabColor_2()
ActiveSheet.Tab.Color = RGB(181, 184, 177) 'Agate Grey
End Sub

Sub TabColor_3()
ActiveSheet.Tab.Color = RGB(120, 219, 226) 'Aquamarine Crayola
End Sub

Sub TabColor_4()
ActiveSheet.Tab.Color = RGB(227, 38, 54) 'Alizarin Red
End Sub

Answer 1

Вы можете добавить пользовательский параметр в меню, вызываемое правой кнопкой мыши, под названием «Мои пользовательские цвета», который изменит цвет меток вашего рабочего листа, поместив приведенный ниже код в модуль для ThisWorksheet.Внутри этого кода вы вызываете подпрограммы TabColor, которые есть в ваших обычных модулях.

Private Sub Workbook_Open()


Dim MyMenu As Object


Set MyMenu = Application.ShortcutMenus(xlWorksheetCell) _
    .MenuItems.AddMenu("My Custom Colors", 1)


With MyMenu.MenuItems


    .Add "Apricot", "TabColor_1", , 1, , ""

    .Add "Agate Grey", "TabColor_2", , 2, , ""

End With


Set MyMenu = Nothing

End Sub


Sub TabColor_1()

ActiveSheet.Tab.Color = RGB(251, 206, 177) 'Apricot


End Sub

Sub TabColor_2()

ActiveSheet.Tab.Color = RGB(181, 184, 177) 'Agate Grey

End Sub

REVISION # 1

Вы можете добавить галереи для затенения ячейки и цвета шрифта в контекстное меню, используя эти xmls ... Есть несколько вариантов ниже в зависимости от того, что вы хотите.

<gallery idMso="CellFillColorPicker"/>
<gallery idMso="FontColorPicker"/> 


<!-- DropDownColorPickers -->
<Command Name="cmdDropDownColorPickerGroup"
         Symbol="cmdDropDownColorPickerGroup"
         Comment="DropDownColorPicker Group"
         Id="55000"/>
<Command Name="cmdDropDownColorPickerThemeColors"
         Symbol="cmdDropDownColorPickerThemeColors"
         Comment="DropDownColorPicker ThemeColors"
         Id="55010"
         LabelTitle="ThemeColors"
         LabelDescription="ThemeColors\ndescription."/>
<Command Name="cmdDropDownColorPickerStandardColors"
         Symbol="cmdDropDownColorPickerStandardColors"
         Comment="DropDownColorPicker StandardColors"
         Id="55011"
         LabelTitle="StandardColors"/>
<Command Name="cmdDropDownColorPickerHighlightColors"
         Symbol="cmdDropDownColorPickerHighlightColors"
         Comment="DropDownColorPicker HighlightColors"
         Id="55012"
         LabelTitle="HighlightColors"/>


<Group CommandName=&quot;cmdDropDownColorPickerGroup&quot;
           SizeDefinition=&quot;ThreeButtons&quot;>
      <DropDownColorPicker
        CommandName=&quot;cmdDropDownColorPickerThemeColors&quot;
        ColorTemplate=&quot;ThemeColors&quot;/>
      <DropDownColorPicker
        CommandName=&quot;cmdDropDownColorPickerStandardColors&quot;
        ColorTemplate=&quot;StandardColors&quot;/>
      <DropDownColorPicker
        CommandName=&quot;cmdDropDownColorPickerHighlightColors&quot;
        ColorTemplate=&quot;HighlightColors&quot;
        StandardColorGridRows=&quot;1&quot;/>
    </Group>

https://docs.microsoft.com/en-us/windows/desktop/windowsribbon/windowsribbon-controls-dropdowncolorpicker