[已解决]hwc2ycy或其它朋友帮下忙！

suxiong

• ActiveSheet.ChartObjects(1).Chart.Export Filename:=jpg1
• ActiveSheet.ChartObjects(2).Chart.Export Filename:=jpg2
  

这里的ChartObjects(1)，与ChartObjects(2)表示表的2张图。现在用的时候发现，如果图多了。

我完全分不清，哪张是1，哪张是2，有没有其它方式来确定是哪张图片呢？？？

原贴链接：
http://www.excelpx.com/thread-313957-1-1.html

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-11-23 17:10

suxiong 发表于 2013-11-23 17:07
有办法解决吗？

如果有要同的名称可以用代码批量重命名。
你在引用的时候，名称相同的话，否则引用的全是同一个图表对象。

跳转到最佳答案楼层

hwc2ycy

每个图表不是有名称嘛。用名称也可以。

hwc2ycy

1.     ActiveSheet.ChartObjects("图表 1").Chart.Export Filename:=jpg1
   
2.     ActiveSheet.ChartObjects("图表 2").Chart.Export Filename:=jpg2

复制代码

suxiong

hwc2ycy 发表于 2013-11-23 16:01

哪张图是图表1，哪图是图表2，在表里能区别吗

hwc2ycy

你选中图表，左上角地址栏就能看出来嘛。

suxiong

hwc2ycy 发表于 2013-11-23 16:22
你选中图表，左上角地址栏就能看出来嘛。

嗯，是可以，但有名字有重复！

很多都叫“图表 1”

hwc2ycy

suxiong 发表于 2013-11-23 16:37
嗯，是可以，但有名字有重复！

很多都叫“图表 1”

应该不会吧。

1. Sub listCharts()
   
2.     Dim cht As ChartObject
   
3.     Dim strMsg$
   
4.     For Each cht In ActiveSheet.ChartObjects
   
5.             strMsg = strMsg & cht.Name & vbNewLine
   
6.     Next
   
7.     If Len(strMsg) = 0 Then strMsg = "当前工作表中无图表"
   
8.     MsgBox prompt:=strMsg, Buttons:=vbInformation + vbOKOnly, Title:="信息"
   
9. End Sub
   

复制代码

你用这个代码测试当前活动工作表内的图表对象。

suxiong

hwc2ycy 发表于 2013-11-23 16:45
应该不会吧。你用这个代码测试当前活动工作表内的图表对象。

看嘛，两张表2  

hwc2ycy

1. Sub listCharts()
   
2.     Dim cht As ChartObject
   
3.     Dim strMsg$
   
4.     For Each cht In ActiveSheet.ChartObjects
   
5.             strMsg = strMsg & cht.Name & vbTab & cht.Chart.Name & vbNewLine
   
6.     Next
   
7.     If Len(strMsg) = 0 Then strMsg = "当前工作表中无图表"
   
8.     MsgBox prompt:=strMsg, Buttons:=vbInformation + vbOKOnly, Title:="信息"
   
9. End Sub

复制代码

hwc2ycy

其实可以列表来选择图片嘛。