|
楼主 |
发表于 2019-3-15 20:18
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test()
Dim cht As Chart
Dim ser As Series
Dim poi As Point
Dim i, j
Set cht = Sheets(1).ChartObjects(1).Chart
For i = 1 To cht.SeriesCollection.Count '遍历数据系列
Set ser = cht.SeriesCollection(i)
For j = 1 To ser.Points.Count '遍历数据系列里的数据点
Set poi = ser.Points(j)
Debug.Print i, j, ser.Points(j).Left
Debug.Print i, j, poi.Left
Next j
Next i
End Sub
谢谢 ivccav!
比如,使用 left 属性 测试,两种方式结果一样
Sub test()
Dim cht As Chart
Dim ser As Series
Dim poi As Point
Dim i, j
Set cht = Sheets(1).ChartObjects(1).Chart
For i = 1 To cht.SeriesCollection.Count '遍历数据系列
Set ser = cht.SeriesCollection(i)
Debug.Print ser.Name, cht.SeriesCollection(i).Name
Next i
End Sub
用不用对象变量,都应当可以获取其属性。
为什么数据点的值属性(也许不叫值属性,但为了说明情况,我暂时这么称呼这个属性),
不能像比如left属性,两种方式都可获取呢?
|
|