[已解决]我是自学新手 在茫茫大海上只能求助大家了

小脏鬼

Sub 自动生成折线图()
    Range("A1").Select
    '创建折线图,并指定图表的位置和大小
    ActiveSheet.Shapes.AddChart _
    (xlLine, 10, 80, 300, 120).Select
    '修改图表的源数据区域
    ActiveChart.SetSourceData Source _
    :=Range("Sheet1!$A$2:$G$4) , _
    PlotBy:= xlRows
End Sub
   它说是缺少列表分隔符或) 我是按书弄的 错在哪里啊

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-12 11:09

Sub 自动生成折线图()
    Range("A1").Select
    '创建折线图,并指定图表的位置和大小
    ActiveSheet.Shapes.AddChart _
    (xlLine, 10, 80, 300, 120).Select
    '修改图表的源数据区域
    ActiveChart.SetSourceData Source _
    :=Sheets("Sheet1").Range("$A$2:$G$4"), _
    PlotBy:=xlRows
End Sub

少写了一个双引号

跳转到最佳答案楼层

mxg825

Sub 自动生成折线图()
    Range("A1").Select
    '创建折线图,并指定图表的位置和大小
    ActiveSheet.Shapes.AddChart _
    (xlLine, 10, 80, 300, 120).Select
    '修改图表的源数据区域
    ActiveChart.SetSourceData Source _
    :=Sheets("Sheet1").Range("$A$2:$G$4"), _
    PlotBy:=xlRows
End Sub

少写了一个双引号

那么的帅

回复 小脏鬼 的帖子

1. 
   
2. 
   
3. Sub 自动生成折线图()
   
4.     Range("A1").Select
   
5.     '创建折线图,并指定图表的位置和大小
   
6.     ActiveSheet.Shapes.AddChart _
   
7.     (xlLine, 10, 80, 300, 120).Select
   
8.     '修改图表的源数据区域
   
9.     ActiveChart.SetSourceData _
   
10.         Source:=Sheets("Sheet1").Range("A2:G4"), _
    
11.         PlotBy:=xlRows
    
12. End Sub
    
13. 
    

复制代码

小脏鬼

回复 mxg825 的帖子

真的很感谢，但是不明白为什么要添加Sheets("Sheet1").还有（xlLine，10,80,300,120）这些数据从哪里来的呢

蓝桥玄霜

建议多查阅Excel自带的帮助文件，点击菜单下工具栏中的一个圆圈中有个问号的按钮，输入查找关键字，查找即可。

mxg825

（xlLine，10,80,300,120）
xlLine=线的样式，
10,80=位折线图位置坐标，
300,120=位折线图大小 （高与宽）


Sheets("Sheet1"). 引用的工作表名称

小脏鬼

谢谢你 不过看来一波未定，一波又起