vba - 将颜色选择器颜色传递给变量

Question

有没有办法将从内置选择器中选择的颜色传递到变量中？像这样的吗？

newColour = Application.Dialogs(xlDialogEditColor).Show(1)

如果没有，将 GUI 中的颜色获取到变量中以便用户轻松更改颜色的最佳方法是什么？

谢谢。

Answer 1

您的代码要求用户为颜色 1 选择一种新颜色，如果用户选择了一种颜色，则将 True 返回到变量 newColour，或者 如果取消，则为 False。

所以你可以将你的代码用作

newColour = Application.Dialogs(xlDialogEditColor).Show(1)
If newColour Then
    Range("A1").Interior.Color = ActiveWorkbook.Colors(1)
End If