[原创]Office2003配色对照表——周晬小礼

雨雪霏霏

2006年5月13日在家园里注册，一年了，感谢兄弟姐妹们的热心帮助！尤其感谢老大与孔兄！

中午收到了老大与如意版主签名的《Word非常接触》，奇宝难得，小弟自当奋勉！谢谢老大与如意版主！

以下是一个纯体力劳动成果，但愿兄弟姐妹们有时用得上！呵呵！

感谢孔兄的指导！小弟完成得还不好，“时间紧迫”，只好发了！还望孔兄原谅小弟。

请各位好兄弟看了之后随时给小弟批评意见！小弟先谢下了！

hLISTh2V.rar (28.32 KB, 下载次数: 683)

2007-5-13 23:58 上传

点击文件名下载附件
[原创]Office2003配色对照表

[此贴子已经被作者于2007-5-14 0:12:37编辑过]

守柔

雨兄辛苦了，我想了解一下您的制作过程，以及探讨一下VBA的实现可能性？（不过为难，而且既然有这么一个目标与创意，我们应该一起想一下，如何使用VBA来完成）

liujy

谢谢楼主分享，楼主辛苦了！

gao2ming1

谢谢雨雪霏霏兄阿，请多多关照。我来这太迟了，还有解释一下，gao2ming1,是去了自己的姓和名字的最后一字，以前注册一位朋友帮我注册了gao1ming2的邮箱，忘了密码。后来无论注册论坛邮箱什么的都用来gao2ming1,发现没有人注册比较方便，这里绝非“高明”之意，希望兄台以后多多提携，特别是小弟问得傻不啦叽的问题也要答噢

konggs

雨兄辛苦了。

很有创意的一个贴子。

chylhr

楼主真是辛苦了!!!

[em23][em23][em23][em27][em27][em27]

雨雪霏霏

QUOTE:

以下是引用守柔在2007-5-14 5:26:18的发言：
雨兄辛苦了，我想了解一下您的制作过程，以及探讨一下VBA的实现可能性？（不过为难，而且既然有这么一个目标与创意，我们应该一起想一下，如何使用VBA来完成）

谢谢老大一早就给小弟这样的慰语与导引！正中小弟下怀——小弟在制作过程中，想到了其实用VBA会简单得多，只是由于想在“周晬”这一天拿出这个东西，因此就“操之过急”没有发求助帖便“私下解决”了，其结果当然是双眼布满血丝了！呵呵！

没有先发求助帖的第二个原因是小弟的想法原来并不成熟，实在是因为小弟对颜色知之甚少，在制作之前，根本不能问一些什么像样的问题，即使发帖求助了，也必然是十分零散碎乱的，热心的老大与孔兄怕是要为小弟的“思想反复”耗去太多精神气力了——甚至可以说，直到昨晚发帖时，整个思路才有点出来。

第三个原因，也是想在拿出成品之后，再请老大帮忙看看是否可以用VBA解决，这样，老大考虑起来就非常明畅，不会为小弟的无知浪费任何精力了——小弟有过许多不好的“前例”，没有把一个问题考虑清楚就发求助帖，结果是老大与孔兄都花了许多“冤枉”功夫，小弟现在想起都惭愧！

以下是小弟的操作过程：
一、缘起
以前对RGB值还不甚了了，对Office软件操作过程中的“六边形色板”“浮动色板”里的色块相当“困扰”，5月10日看到了《求助，自定义特殊功能工具栏》里C81兄在VBA代码中使用到了颜色参数，且lxw747兄又提到想要一种“颜色列表”，刚好小弟的本本上装的是英文版Office2003、台式电脑上装的是中文版的Office2003，方便参照核对，小弟便下了愿心，想要完成这样的一次整理。还有，5月13日是周岁纪念，该来点“意思”才对得起老大、孔兄、如意版主和各位兄弟对小弟的栽培！——小弟虽然在家园里不长进，拉磨总还不敢懈怠！
二、准备
①查找VBE帮助文件——英文版和中文版，汇总。
②查找家园里的相关帖子，汇总。
每种颜色有“数值”，是从《[求助]用vba 如何取得word的背景颜色呢》2楼老大的帖子中悟到的，并且在《Office2003配色对照表》中引用了“自动色”数值——谢谢老大！
从《请教：在那里能找到RGB(0,0,0)代码对应的颜色？》5楼Emily前辈的代码中获益，小弟在Excel中运行代码，得到了56种颜色的“网页色”值。
③查找网上的相关论述，汇总，并下载两个小软件“colorpicker”与“玩转颜色”。
三、制作
①在Word中用“绘图”功能制作完成“六边形色板”“浮动色板”组合图。
②为每个色块编序，填充相应颜色。
③通过“设置自选图形格式→填充颜色→自定义”获得相应色块的RGB值，短暂记忆（呵呵，渐渐记不住了，不得已，只好截屏），手工输入色块内。
④对照Office2003中文版与英文版，为“浮动色板”里出现过的颜色输入中文名与英文名。
⑤通过“colorpicker”“玩转颜色”两个小软件获得“网页色值”“数值”，输入色块内。
⑥利用老大的“从文本框里获取数据”（且保持源格式）宏，将两个色板上的颜色信息导入新建文档中，整合成“详细数据表”。
⑦为“详细数据表”每行设置了相对应的单元格背景颜色。
⑧在表格中，用“colorpicker”“玩转颜色”两个小软件获得“16进制”“16进制全称”“Delphi值”，手工输入。
⑨在Word、Photoshop、colorpicker、玩转颜色四个软件中反复核查各项数据，再参照从VBE、家园、网上汇总得来的信息，确保无误。
⑩排版完成后，恳请孔兄的指导意见，孔兄建议以Excel格式发表，方便查对。
于是，小弟从Word中复制了两个色板图与“详细数据表”到Excel中，不料格式变化太大，两个色板仍得一个色块一个色块进行调整（可恨在Excel中无法使用Ctrl+E快捷键来进行色块内文字段落居中，只得鼠标忙活，这是最残忍的事之一！当然，还可恨Excel中不能自定义快捷键，即使录了宏也不能好好使用）。
残忍的事之二，是“详细数据表”到了Excel中，大部分单元格背景颜色都变成了相近的“浮动色板”里的颜色——Excel中不支持127种单元格背景。为了有一个直观的颜色标签，小弟只得新增一列，为每行数据做一个图形并填充RGB值相对应的颜色。尽管这样看去似乎也完整了，但留下了一个“难言之隐”——若对“详细数据表”自由排序的话，每行对应的图形并不听话，到处乱跑（用了“固定大小并随单元格移动”功能并无效。怨恨Excel没有Word的“嵌入”图片功能——呵呵，小弟在此有请兄弟们指教了）。
特别感谢孔兄的是，经过在Excel中的“排查”，发现了“灰色-40%”出了问题——Excel中都是150,150,150的RGB值，而Word中是153,153,153，推敲其他各项数据，应该可以得出Word中是对的，而Excel中错了。
还有些不好意思的是，小弟可没有全部按照如上程序做，“全盘推翻”可是好几次了，实在是连骨子里都流汗了！

以下是小弟猜想之中用VBA解决此问题的过程，请老大、孔兄和各位兄弟指导：
一、六边形色板：
①在Word中，生成127个六边形，严格按照“六边形色板”排序组合（便于以下的编序、导出数据）。
②为127个六边形填充相应颜色。
③为127个六边形填写序号、RGB值、数值、中文名、英文名。
二、浮动色板
制作过程同于“六边形色板”。
三、详细数据表。
①运行老大的“从文本框”里获取数据（且保持源格式）宏，将“六边形色板”“浮动色板”里的颜色信息导入到一个新文档中。
②用查找替换法，将所有数据转换为表格。（其实，也可以将这两步结合在一起——在新文档里自动生成一个表格，在每一个单元格里填充从“六边形色板”“浮动色板”里导出的数据。）
③在Word表格中，自动为每一行填充相应的颜色。
④为了能够在整个Office系统里保持“稳定性”，不至于因为复制到Excel中失去了单元格真实背景色，有必要在Word表格中新建一列，为每一种颜色生成一个文本框，并填充相应的颜色与序号，作为“稳定颜色标签”。
⑤开启“玩转颜色”小软件，用类似于老大从金山词霸获取音标的方法，为每行表格自动获取并填充网页值、16进制值与Delphi值。
四、全局整理。
在“浮动色板”里出现过的颜色，若也出现在“六边形色板”中，即两种颜色相同，那么：
①为“六边形色板”中的相应颜色加上在“浮动面板”中的序号；
②为“浮动色板”中的相应颜色加上在“六边形色板”中的序号；
③在“详细数据表”中，将两种相同的颜色数据整合在一行中。

谢谢老大亲临“大观园”，期待您的指引！

疑问——能否在Excel中完成以上要求呢？如何真正实现Excel中批量自定义不同颜色？

雨雪霏霏

QUOTE:

以下是引用liujy在2007-5-14 5:56:38的发言：
谢谢楼主分享，楼主辛苦了！

谢谢liujy前辈劳动“圣眼”！还请您多多指点小弟！您是家园里的泰斗了，小弟心中恭敬！

QUOTE:

以下是引用gao2ming1在2007-5-14 7:19:38的发言：

谢谢雨雪霏霏兄阿，请多多关照。我来这太迟了，还有解释一下，gao2ming1,是去了自己的姓和名字的最后一字，以前注册一位朋友帮我注册了gao1ming2的邮箱，忘了密码。后来无论注册论坛邮箱什么的都用来gao2ming1,发现没有人注册比较方便，这里绝非“高明”之意，希望兄台以后多多提携，特别是小弟问得傻不啦叽的问题也要答噢

呵呵，gao2ming1兄勤学善问，技艺精湛，怎么谦虚起来好像小弟倒能腾云驾雾了呢！以后还请“高明”兄看小弟偷懒了，多多抽小弟几鞭！

QUOTE:

以下是引用konggs在2007-5-14 7:24:43的发言：

雨兄辛苦了。

很有创意的一个贴子。

孔兄辛苦了！小弟不争气，弄不出个好的Excel文件，孔兄还如此“捧场”，羞煞小弟！呵呵，只恨昨夜子时来得太快，来不及向孔兄及时讨要妙方！这下边的VBA编程可不能不求孔兄“亮出宝剑”了！

QUOTE:

以下是引用chylhr在2007-5-14 15:26:02的发言：

楼主真是辛苦了!!!

[em23][em23][em23][em27][em27][em27]

chylhr兄身手矫健，出言发语干脆响亮，小弟十分仰慕！希望chylhr兄不吝赐教！

雨雪霏霏

刚才把《Office2003配色参照表》从Excel中复制到Word中，发现“详细数据表”第一列“图形”颜色标签并没有“跟”过来，这也是小弟老问题了——《[求助]有图片的电子表格如何完美粘贴到Word中》。

孔兄告嘱小弟整理资料最好用Excel，小弟深以为是。可恨小弟驽愚，不知道带有图形的文件，该如何在Excel与Word中完美转换，且能保证自由排序时图形位置不出错。

以下且算是一个解决以上问题的“怪方”，但更多的是“怪方”自身在“Office2003”中具有独立价值。只是不知算不算“不该有的想法”——LangQueS版主《有感论坛中不少帖子没得到解答》第8条“问题不应该解决；（例如：如何改变Excel启动画面）”。

一、将“六边形色板”“浮动色板”集合在一个“超级色板”中，独立作为一个“浮动工具栏”，在Word、Excel、PowerPoint中可以自由调用。

二、为“超级色板”加上几个按钮

①“原色”——“超级色板”每个色块都显示本来颜色，没有任何文字信息。

②“显示中文名”——在显示“原色”的基础上，再为有中文名的色块标上中文名。

③“显示英文名”——同上。主要为VBA考虑。

④“显示数值”

⑤“显示网页色值”

⑥“显示16进制值”

⑦“显示Delphi值”

⑧“显示HSL值”——请注意Office2003中除了提供一种颜色的RGB值外，也同时提供HSL值，只是小弟还不知道在何种场合使用它，因此未在《Office2003配色对照表》中进行这一项工作。但作为VBA编程，似乎应该考虑把这一项工作纳入，使得整个工程能够“完整”。

三、“超级色板”使用要求

①可以由使用者自由选择在色块里显示多少按钮的内容，每增加显示一个按钮的内容则“超级色板”相应增大便于察看色块里的文字信息。

②色块里的文字信息可以复制到剪贴板。——遐想：某种特殊情况下，由使用者输入自己想要的RGB值（或者“数值”“Delphi值”等其他数据），色块自动变成相应颜色，使“超级色板”变成“自定义超级色板”。——呵呵，其实，这应该算一个“软件”了。

③在Word、Excel、PowerPoint中，可以点按浮动的“超级色板”上任一色块，为选定的文字、单元格、线条、图形打上相应颜色——为了更精确实现效果，似乎还应该有一个选择菜单（当然，做成直观的按钮更好）——“为文字着色”“为表格边框着色”“为图形线条着色”“为图形填充着色”等等。

比如现在想定义图形的填充为红色，选定这个图形后，点按“超级色板”上的“为图形填充着色”按钮，再点“红色”色块则把图形的填充色改成了红色；如果选定这个图形时再点按的是“为文字着色”按钮，则点“红色”色块是把这个图形内的所有文字都变成红色（如果图形内没有文字，可以来个警告消息框——“图形内无任何文字”）

四、“超级色板”大控制

可以在“超级色板”左上角布置三个按钮，使用者通过“勾选”来自由控制“超级色板”的色块数：

显示“六边形色板”，显示“浮动色板”里的灰色系列色块，显示“浮动色板”里下部的40个色块。

真要实现这些，应该是一个“Office2003颜色超级控制插件”了。

以上纯属“科幻”，博兄弟们一笑！——同时，恳请老大、孔兄、C81兄和各位好兄弟批评！

sylun

创意一流！谢谢雨兄分享！