如何用VBA设置折线图的数据标志样式？

楼主
biaotiger1

Q：如何用VBA设置折线图的数据标志样式？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下：

Sub 设置数据标志样式()
Dim I, J
With Shapes.AddChart(xlLineMarkers, 0, 0, 300, 300).Chart '在（0，0）坐标处插入折线图
.SetSourceData Source:=Range("Sheet1!$A$1:$A$12") '设置数据源
.SetElement msoElementLegendNone '不显示图例项
For I = 1 To .SeriesCollection(1).Points.Count '在所有数据点之间循环
With .SeriesCollection(1).Points(I)
.MarkerStyle = Range("F" & 1 + I)
.MarkerSize = 15
End With
Next I
End With
End Sub

运行以上代码，则在sheet1工作表中插入一个折线图。并且将不同数据点设置为不同的数据标志样式。

XlMarkerStyle 枚举常量用于设置折线图、散点图或雷达图中数据点或数据系列的数据标记样式。其具体数值及说明列表如下：

名称	值	说明
xlMarkerStyleAutomatic	-4105	自动设置标记
xlMarkerStyleCircle	8	圆形标记
xlMarkerStyleDash	-4115	长条形标记
xlMarkerStyleDiamond	2	菱形标记
xlMarkerStyleDot	-4118	短条形标记
xlMarkerStyleNone	-4142	无标记
xlMarkerStylePicture	-4147	图片标记
xlMarkerStylePlus	9	带加号的方形标记
xlMarkerStyleSquare	1	方形标记
xlMarkerStyleStar	5	带星号的方形标记
xlMarkerStyle**	3	三角形标记
xlMarkerStyleX	-4168	带 X 记号的方形标记

上一篇：如何用VBA设置插入SmartArt图形的背景图片？
下一篇：如何用VBA设置嵌入式图表绘图区填充色？

免责声明

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

猜您喜欢

评论列表

sitemap