如何为图表的某一个数据点填充颜色？

作者：绿色风分类：时间：2022-08-17 浏览：89

楼主 biaotiger1	Q：如何为图表的某一个数据点填充颜色？ A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下： Sub 为一个数据点填充颜色() Dim I, J, A A = InputBox("输入数据点序列号（1—5）", , 0) If A = 0 Then End With Sheets("sheet1").Shapes.AddChart.Chart .SetSourceData Source:=Range("a1:a5") .ChartType = xlColumnClustered .SetElement (msoElementLegendNone) For I = 1 To 50 With .SeriesCollection(1).Points(A).Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(Rnd * 254 + 1, Rnd * 254 + 1, Rnd * 254 + 1) End With For J = 1 To 10000: Next: DoEvents Next I End With End Sub 为一个数据点填充颜色.rar
2楼 mjgdxx	这代码对于2003和2007不适用吗？
3楼 kevinchengcw	原来还可以这样

免责声明

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

评论列表