VBA调用系统调色板

版权声明：本文为博主原创文章，转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/82080064

在Excel中设置单元格字体格式时，用户可以在调色板中选择颜色，如下图所示。

在VBA代码中如何提供调色板让用户选择颜色呢？
一种方法是调用Excel的系统对话框实现设置颜色，对话框如下图所示。

Application.Dialogs(xlDialogFont).Show

但是，并不是所有的格式设置都有与之对应的系统对话框可以在代码中调用，所以调用系统调色板供用户选择颜色，然后使用代码设置格式是更加通用的实现方式。

Type udtColor
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpstrColors As String
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As Long
End Type
Declare Function ChooseColorA Lib "Comdlg32" _
        (lpChooseColor As udtColor) As Long
Sub Demo030()
  Dim strColors As String * 16
  Dim udtMyColor As udtColor
  With udtMyColor
    .lStructSize = 36
    .lpstrColors = strColors
  End With
  If ChooseColorA(udtMyColor) = 0 Then Exit Sub
  [A1].Font.Color = udtMyColor.rgbResult
End Sub

第21行代码调用API函数ChooseColorA，显示系统调色板如下图，用户选择的颜色保存在udtMyColor中。

第22行代码中udtMyColor.rgbResult返回颜色的RGB值，用于设置字体颜色。