在VBA中，如何实现调用Excel调色板，并返回选中颜色的值？

almeida · 发表于 2013-12-2 07:28

本帖最后由 almeida 于 2013-12-2 08:58 编辑

在VBA中，如何实现调用Excel调色板，并返回选中颜色的值？谢谢。

almeida · 发表于 2013-12-2 09:43

在网上查了许久，都没有这方面的明确资料。特别是选中颜色返回值，一个都没查到，只查到一 C 语言的

lsftest · 发表于 2013-12-2 10:25

Sub lsftest()
'工具，引用，使Microsoft CommonDialog Contral 6.0复选框有效，确定。
Dim A As New CommonDialog
A.ShowColor
[A1].Interior.Color = A.Color
End Sub

复制代码

almeida · 发表于 2013-12-2 11:18

lsftest 发表于 2013-12-2 10:25

谢谢，可是运行时，出错。提示，未定义。见附件。

截图.rar (191.01 KB, 下载次数: 22)

lsftest · 发表于 2013-12-2 11:24

本帖最后由 lsftest 于 2013-12-2 11:28 编辑

almeida 发表于 2013-12-2 11:18
谢谢，可是运行时，出错。提示，未定义。见附件。

'工具，引用，使Microsoft CommonDialog Contral 6.0复选框有效，确定。

hyefeifei · 发表于 2013-12-2 12:23

win64+2010不能引用？

almeida · 发表于 2013-12-2 15:33

在我的excel2010中，没找到这个控件。请问不用控件是否能实现。目的就是取得选中颜色的数值，然后好赋给变量。

lsftest · 发表于 2013-12-2 15:53

一定要用系统的调色板么？如果一定要用系统调色板而又不想引用公共dlg，就得用api，很麻烦的。。。
其实excel有自带的调色板，不过样子怪一点，速度慢一定，但使用简单。。
如果要我等会贴出来。。。

lsftest · 发表于 2013-12-2 15:56

Sub lsftest()
A = ActiveWorkbook.Colors(1)
B = Application.Dialogs(xlDialogEditColor).Show(1)
[A1].Interior.Color = ActiveWorkbook.Colors(1)
ActiveWorkbook.Colors(1) = A
End Sub

lsftest · 发表于 2013-12-2 16:10

或者更简单的用这个：

Sub lsftest()
[A1].Select
Application.Dialogs(xlDialogPatterns).Show
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 在VBA中，如何实现调用Excel调色板，并返回选中颜色的值？

点评

评分

最新热点 /1