[已解决]如何添加嵌入的图表

爱疯

1. 
   
2. Sub Test1()    '嵌入的图表
   
3.     Dim chtObj As ChartObject
   
4.     Set chtObj = Sheets("sheet1").ChartObjects.Add(100, 100, 300, 200)
   
5.     With chtObj
   
6.         .SetSourceData Source:=Sheets("sheet1").Range("A1:A9,D1:D9"), _
   
7.                        PlotBy:=xlColumns
   
8.     End With
   
9. End Sub
   
10. 
    
11. Sub Test2()    '单独的图表工作表
    
12.     Dim chtObj As Chart
    
13.     Set chtObj = Charts.Add
    
14.     With chtObj
    
15.         .SetSourceData Source:=Sheets("sheet1").Range("A1:A9,D1:D9"), _
    
16.                        PlotBy:=xlColumns
    
17.     End With
    
18. End Sub

复制代码

test2正常。
请问：test1应怎样修改，才能添加成功？
谢谢！
如何添加嵌入的图表.rar (8.39 KB, 下载次数: 14)

2012-8-17 20:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2012-8-17 20:34

1. Sub Test1()    '嵌入的图表
   
2.     Dim chtObj As Chart
   
3.     Sheets("sheet1").Shapes.AddChart(xlLine, 10, 60, 500, 500).Select
   
4.     With ActiveChart
   
5.         .SetSourceData Source:=Range("A1:D9")
   
6.     End With
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

爱疯

不好意思，没仔细看帮助，仔细看了后发现少了个chart{:241:}


Sub Test1()    '嵌入的图表
    Dim chtObj As ChartObject
    Set chtObj = Sheets("sheet1").ChartObjects.Add(100, 100, 300, 200)
    With chtObj
        .Chart.SetSourceData Source:=Sheets("sheet1").Range("A1:A9,D1:D9"), _
                       PlotBy:=xlColumns
    End With
End Sub

suye1010

1. Sub Test1()    '嵌入的图表
   
2.     Dim chtObj As Chart
   
3.     Sheets("sheet1").Shapes.AddChart(xlLine, 10, 60, 500, 500).Select
   
4.     With ActiveChart
   
5.         .SetSourceData Source:=Range("A1:D9")
   
6.     End With
   
7. End Sub
   

复制代码

爱疯

谢谢suye版！

学习了，本来不知在哪儿设类型的，我去弄个饼{:011:}

suye1010

1. Sub t()
   
2. Dim co As ChartObject
   
3. Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)
   
4. co.Chart.SetSourceData Source:=Worksheets("Sheet1").Range("A1:D9")
   
5. End Sub
   

复制代码

suye1010

爱疯 发表于 2012-8-17 20:40
谢谢suye版！

学习了，本来不知在哪儿设类型的，我去弄个饼

我也是现查找帮助的O(∩_∩)O

hhzjxss

跟着爱疯疯一疯图表