[已解决]求：激活图表和获取图表名称的程序【急】

threedegreebaby

我想调用一个图表，但是不知道如何获取图表的名称，也不知道如何激活它它它它它，
搞了好久了，没有进展啊【急急急！！！】

最佳答案

月排行榜 / 总排行榜

9lee

2013-6-9 08:53

threedegreebaby 发表于 2013-6-8 23:36
谢谢回复，有学习了。
我遇到的具体问题是下面的，麻烦帮忙看看啊

bbb就是你创建的图表，他的名字是：

1. bbb.name
   

复制代码

要激活他：

1. bbb.activate

复制代码

跳转到最佳答案楼层

hwc2ycy

ChartObjects 对象

由指定的图表工作表、对话框工作表或工作表上的所有 ChartObject 对象组成的集合。

说明


每个 ChartObject 对象都代表一个嵌入图表。ChartObject 对象充当 Chart 对象的容器。ChartObject 对象的属性和方法控制工作表上嵌入图表的外观和大小。ChartObjects 集合

threedegreebaby

hwc2ycy 发表于 2013-6-8 23:05
ChartObjects 对象

由指定的图表工作表、对话框工作表或工作表上的所有 ChartObject 对象组成的集合。
...

谢谢回复。
小弟刚刚学习VBA，有些听不懂啊，能不能段代码学习一下啊

hwc2ycy

1. Sub test()
   
2.     Dim objchart As Object
   
3.     On Error GoTo ErrorHandler
   
4. 
   
5.     For Each objchart In ActiveSheet.ChartObjects
   
6.         MsgBox objchart.Name
   
7.         'objchart.Activate
   
8.         '激活图表
   
9.     Next
   
10.     Exit Sub
    
11. 
    
12. ErrorHandler:
    
13.     MsgBox Err.Number & vbCrLf & _
    
14.            Err.Description
    
15. End Sub
    

复制代码

threedegreebaby

谢谢回复，有学习了。
我遇到的具体问题是下面的，麻烦帮忙看看啊


Set ab = Range(Cells(33, 2), Cells(46, 16))
   
   Set bbb = ActiveSheet.ChartObjects.Add(54, 100, 810, 200)


bbb.Chart.ChartType = xlColumnClustered '柱形图


With bbb

.Top = ab.Top
.Left = ab.Left
.Width = ab.Width
.Height = ab.Height

End With

接下来，我想选中刚创建的图表，想知道图表的名字，应该是什么语句啊？？

9lee

threedegreebaby 发表于 2013-6-8 23:36
谢谢回复，有学习了。
我遇到的具体问题是下面的，麻烦帮忙看看啊

bbb就是你创建的图表，他的名字是：

1. bbb.name
   

复制代码

要激活他：

1. bbb.activate

复制代码

threedegreebaby

谢谢9lee，见笑了。
刚学习VBA，基础不扎实啊