Excel2010学习贴4-在2003中使用2010的颜色主题.docxVIP

Excel2010学习贴4：在2003中使用2010的颜色主题 文 /? HYPERLINK / \t _blank ExcelPro的图表博客 ?? ?上个贴子说到 HYPERLINK /160780979.html \t _blank 如何在2010中使用2003式的颜色面板，有时候我们也有这种需求：即要在2003中使用2010的颜色主题。原因有二： ?? ?1)你在2010中做好的文档，发给使用2003的人看时，颜色完全变了，而且非常难看。这时需要在2003中带上2010的颜色。 ?? (2007/2010中颜色很协调的表格，在2003中打开时变得非常刺眼) ?? ?2)有些使用2003的朋友，认为2010的颜色不错，很是喜欢，希望可以在2003中使用2010的颜色。 ?? ?前面说到，2010的.xlsx文件仍然兼容了2003的56色模式，所以只要我们在发出.xlsx文件之前，将其默认的2003的56色设置为仿 2010颜色主题的56色，就可以实现在2003中打开时看到2010中的颜色。本日志介绍一种2003中仿2007颜色的方法。 ?? ?1、建立2003的56颜色id分布矩阵。 ?? ?这些数字为2003的颜色id分布，与颜色面板对应。可参见《 HYPERLINK /transfer/transfer.aspx?from=P-276609backurl=/product.aspx?product_idef=product-0-F \t _blank Excel图表之道》一书中的颜色代码分布内容。 ?? ?2、用2007的颜色主题填充矩阵。 ?? ?要将2010颜色主题的70个颜色转换到2003式的56个颜色，肯定需要舍去一些颜色。结合2003颜色面板的布局，以及作图时Excel默认使用颜色的顺序，我采用如下策略： ?? ?第1-5行的前6列使用2010面板中第1-5行后6列的颜色，第6、7行也使用了2010面板中第1行的颜色，便于图表默认使用。第7、8列使用2010面板中第7行的标准色，以及几个黑白灰色。当然，你也可以按自己的需要填充。 ?? 3、然后运行如下的一小段宏，其实只有1句话，就是将单元格的值所指向的颜色id设置为单元格的填充色。 ?? ?Sub fillcolor() ?? ? ? ?Dim i As Integer ?? ? ? ?Dim j As Integer ?? ? ? ?For i = 1 To 7 ?? ? ? ?For j = 1 To 8 ?? ? ? ? ? ? ? ?ActiveWorkbook.Colors(Cells(i, j).Value) = Cells(i, j).Interior.Color ?? ? ? ?Next j ?? ? ? ?Next i ?? ?End Sub ?? ?这时，这个.xlsx文件的56色已经改变，这可以通过“文件-选项-保存-颜色”的对话框看到。如果我们在2003中打开此文件，或将此文件转存为2003格式，会发现表格仍保持了2010中的格式，工具栏中的颜色面板也是仿2010的。?? ? （在2003中打开时仍保持了2007/2010的颜色） ?? ?4、2010中有很多颜色主题，以上为模仿默认的office主题。如果你想转换其他的颜色主题到2003，只需要在这个转换文件中切换到该颜色主题， 这个颜色矩阵也会变色，然后运行此宏，该颜色主题的颜色就被设置到56色中，然后转存即可。例如下图为我自定义的FOCUS颜色主题的转换情况。 ?? ?5、你可以使用《 HYPERLINK /transfer/transfer.aspx?from=P-276609backurl=/product.aspx?product_idef=product-0-F \t _blank Excel图表之道》中介绍的方法，把此文件的颜色模板复制到你的2003文件，也可以将此文件复制为Excel启动目录下的book.xlt，则每次新建的Excel文件都会具有2007/2010类似的颜色面板了。 ?? ?以上方法和模板文件，让你不必安装2007/2010就可以使用其颜色，也可以保证你发出的文件在从2007/2010到2003的转换过程中不会丢失颜色。如果觉得有用，欢迎分享本文。 ?? ?颜色转换模板文件下载： HYPERLINK /filebox/down/fc/36c8354d529fda1e826f27836f4e73bf \t _blank 2003仿2007颜色面板 生成模板.xlsm ?? ?这里提供3款仿2007/2010颜色主题的2003格式颜色模板文件供读者们下载： HYPERLINK /fi