[已解决]【求助】怎么表示已存在图表的项目？？

xdwy456

插入了一个图表，完成以后，如果图表被选择录制宏得到
ActiveChart.SeriesCollection(1).AxisGroup = 2

请问的是，如果焦点离开了图表（如当前选择的是单元格），这个语句（ActiveChart.SeriesCollection(1).AxisGroup = 2

）应该怎么改变写成可以运行的语句？

复件 编制表.rar (10.86 KB, 下载次数: 7)

2012-6-14 14:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

银鱼

2012-6-18 08:33

1. 
   
2. Worksheets("sheet1").ChartObjects("图表 59").Chart.SeriesCollection(1).AxisGroup = 2
   

复制代码

跳转到最佳答案楼层

无聊的疯子

直接放个代码选择单元格就行了啊?

range("A1").select
这样不可以么?

xdwy456

无聊的疯子 发表于 2012-6-14 16:31
直接放个代码选择单元格就行了啊?

range("A1").select

如果焦点离开了图表（如当前选择的是单元格），这个语句（ActiveChart.SeriesCollection(1).AxisGroup = 2

）应该怎么写？

xdwy456

xdwy456 发表于 2012-6-14 17:36
顶顶问题了

顶顶

xdwy456

请教高手解答了

xdwy456

顶顶自己的问题

银鱼

1. 
   
2. Worksheets("sheet1").ChartObjects(1).Chart.SeriesCollection(1).AxisGroup = 2
   

复制代码

xdwy456

银鱼 发表于 2012-6-17 21:51

Worksheets("sheet1").ChartObjects(1).Chart.SeriesCollection(1).AxisGroup = 2
谢谢这个答案，ChartObjects(1)这里是索引号，我希望写成是名称（字符串），不知道应该怎么写
ChartObjects(名称)，这里是这个名称怎么取得或者设置？？

银鱼

1. 
   
2. Worksheets("sheet1").ChartObjects("图表 59").Chart.SeriesCollection(1).AxisGroup = 2
   

复制代码

xdwy456

银鱼 发表于 2012-6-18 08:33

图表 59

这个名称怎么改名呢？？
谢谢希望解答