为什么改变图片名称代码出错呢？？？？？？？

为什么改变图片名称代码出错呢？？？？？？？为什么改变图片名称代码出错呢？？？？？？？为什么改变图片名称代码出错呢？？？？？？？为什么改变图片名称代码出错呢？？？？？？？为什么改变图片名称代码出错呢？？？？？？？为什么改变图片名称代码出错呢？？？？？？？

另：如果要插入一个shape，怎么知道其索引号会是多少呢？？Activesheet.Shapes.Count只能数实际存在的个数，不算已经被删掉的

[ 本帖最后由 nowhere2go 于 2011-8-2 16:22 编辑 ]

顶顶顶啊顶顶顶

Sub salkjhl()
     Sheet1.Range("A1").Select
         ActiveSheet.Shapes.AddChart.Select
'    Selection.ShapeRange.Name = "shit"
    ActiveSheet.ChartObjects(1).Name = "shit"
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("A2:A4")
    End Sub