[已解决]用如何VBA给饼图赋值

研究研究

工作表.rar (11.98 KB, 下载次数: 24)

2013-7-17 13:25 上传

点击文件名下载附件
表都一样。A和B列的数据多少不一样。怎么样才能赋值给饼图
我只现实了一个。第2个就报错

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-17 15:23

研究研究 发表于 2013-7-17 15:20
这个不行  因为饼图不在固定位置（有时会挡住数据源）
或者有把饼图固定在某个位置。但是我百度不到这方 ...

饼图的位置你在添加时可以指定嘛。

AddChart(Type, Left, Top, Width, Height)

跳转到最佳答案楼层

hwc2ycy

录制宏吧。

hwc2ycy

1.     With ActiveSheet.Shapes.AddChart
   
2.         .Chart.ChartType = xlPie
   
3.         .Chart.SetSourceData Source:=Range("a1").CurrentRegion
   
4.     End With

复制代码

hwc2ycy

只要A1所在的区域是数据来源就OK了。

研究研究

hwc2ycy 发表于 2013-7-17 14:20

这个不行  因为饼图不在固定位置（有时会挡住数据源）
或者有把饼图固定在某个位置。但是我百度不到这方面的信息

hwc2ycy

研究研究 发表于 2013-7-17 15:20
这个不行  因为饼图不在固定位置（有时会挡住数据源）
或者有把饼图固定在某个位置。但是我百度不到这方 ...

饼图的位置你在添加时可以指定嘛。

AddChart(Type, Left, Top, Width, Height)

研究研究

hwc2ycy 发表于 2013-7-17 15:23
饼图的位置你在添加时可以指定嘛。
AddChart(Type, Left, Top, Width, Height)

你的意思这样写？

1. With ActiveSheet.ChartObjects.Add(Left:=500, Top:=0, Width:=350, Height:=225)
   
2. .Chart.SetSourceData Source:= Range("A10:b14")
   
3. .Chart.ChartType = xlPie
   
4. End With
   

复制代码

1. With ActiveSheet.Shapes.AddChart(Left:=500, Top:=0, Width:=350, Height:=225)
   
2. .Chart.ChartType = xlPie
   
3. .Chart.SetSourceData Source:=Range("a1").CurrentRegion
   
4. End With

复制代码

hwc2ycy

你也可以用最后一个单元格的坐标来确定嘛。

研究研究

hwc2ycy 发表于 2013-7-17 20:47
你也可以用最后一个单元格的坐标来确定嘛。

这个知道