【Excel+Flash】调色板插件

作者：绿色风分类：时间：2022-08-18 浏览：112

楼主 chrisfang	这是一个Excel中自定义颜色的插件工具，可以对单元格、图形、图表等多种对象的填充色、字体颜色、线条色（边框色）进行所见即所得的即时设置，适用于2003～2010版。同时这也是一个水晶易表制作的Flash与Excel的完美结合，利用了水晶易表简单方便的模型设计、Flash的美观易用以及VBA的强大操控性。类似的调色板插件可能有不少，Flash的FS命令与Excel结合的应用也有不少，但这样的组合体估计还是不太常见的，最大的好处就是在提升美观度的同时降低了编程设计成本。 2012年3月1日新增v3.0版本：此版本新增功能：【渐变色】体系，神马彩虹色、阶梯色都能轻松搞定。调色板v3.0.rar 操作的演示可以观看视频： http://www.56.com/u38/v_NjY2MDI2NTE.html ***********华丽分割线的下方是原v2.0版本************ 调色板.rar 插件工具的具体使用方法可观看视频： http://www.56.com/u75/v_NjY1MjYzMDQ.html 在某些情况下，插件使用时如果提示“无法访问外部数据”的错误，可以照提示中的方法进行设置，也可以点击运行这个文件包当中的“Flash安全配置”批处理文件。代码不多，其中的主要部分代码就是这些： Sub setcolor(mycolor, flag) On Error Resume Next mycolor = Mid(mycolor, 2, Len(mycolor) - 2) myRGB = Split(mycolor, ",") Select Case flag Case 1 '背景色 Selection.Interior.Color = RGB(myRGB(0), myRGB(1), myRGB(2)) Case 2 '字体色 Selection.Font.Color = RGB(myRGB(0), myRGB(1), myRGB(2)) Case 3 '线条色 Selection.Border.Color = RGB(myRGB(0), myRGB(1), myRGB(2)) Selection.Borders.Color = RGB(myRGB(0), myRGB(1), myRGB(2)) End Select End Sub
2楼 Rongson_Chart	棒棒棒！
3楼 lrlxxqxa	太精彩了
4楼作个有前人	不能显示**1.jpg
5楼 chrisfang	2012年3月1日新增v3.0版本
6楼海洋之星	真厉害
7楼 feishifan	相信是一个非常实用的工具
8楼造价ing	为什么下不起喃

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表