本机颜色对话框不会在“确定”按钮上关闭

【问题标题】：Native color dialog box does not close on OK button本机颜色对话框不会在“确定”按钮上关闭
【发布时间】：2019-11-18 15:12:56
【问题描述】：

我试着用线

私有子 Cor1_Click()

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

结束子

并且对话框不会以其原生 OK 关闭。

有什么线索吗？

【问题讨论】：

标签： colorbox

【解决方案1】：

尽管找到了答案，但我仍然保留这个问题，因为我相信值得了解我的发现：

我使用我创建的按钮，打开对话框作为变量名来传递值。更改了变量名，对话框现在按 OK 按钮关闭。

私有子 Cor1_Click()

Dim Cor11 As Long
Cor11 = 0
Cor11 = Application.Dialogs(xlDialogEditColor).Show(1)

结束子

【讨论】：