[已解决]绘图代码测试

642070295

请各位高手帮忙：1、注释附件中代码的意思（没有注释我一点也看不懂，唉......我是够笨的了）
                            2、我想把控件按钮设在sheet1表中，（点击按钮时）在sheet2表中生成股价图，怎么修改代码呢？ 代码测试附件.rar (33.19 KB, 下载次数: 6)

2013-12-17 13:24 上传

点击文件名下载附件

                  先谢谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-17 15:07

642070295 发表于 2013-12-17 14:57
请老师注释一下6、7、8 和15、16、17、18 的代码意思好吗？谢谢老师！

1. Sub Macro1()
   
2.     With Worksheets(2)
   
3.         With .Shapes.AddChart.Chart
   
4.             .SetSourceData Source:=Sheets("gjt1").Range("A1:F" & Sheets("gjt1").Range("A65536").End(3).Row)
   
5.             .ChartType = xlStockVOHLC
   
6.             '图表类型：成交量-开盘-盘高-盘低-收盘图。
   
7.             .ChartStyle = 8
   
8.             '图表样式
   
9.             .ApplyLayout (2)
   
10.             '应用图表版式
    
11.             .SeriesCollection(1).Name = "=""成交量"""
    
12.             .SeriesCollection(2).Name = "=""开盘"""
    
13.             .SeriesCollection(3).Name = "=""盘高"""
    
14.             .SeriesCollection(4).Name = "=""盘低"""
    
15.             .SeriesCollection(5).Name = "=""收盘"""
    
16.         End With
    
17.         .ChartObjects(1).Width = 3000
    
18.         '图表对象的宽度
    
19.         .ChartObjects(1).Height = 380
    
20.         '高度
    
21.         .ChartObjects(1).Left = 2
    
22.         '左边缘距离
    
23.         .ChartObjects(1).Top = 2
    
24.         '顶部边缘的距离，以磅为单位
    
25.     End With
    
26. End Sub
    
27. Sub 删除()
    
28.     On Error Resume Next
    
29.     Worksheets(2).ChartObjects(1).Delete
    
30. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub Macro1()
   
2. 
   
3.     With Worksheets(2)
   
4.         With .Shapes.AddChart.Chart
   
5.             .SetSourceData Source:=Sheets("gjt1").Range("A1:F" & Sheets("gjt1").Range("A65536").End(3).Row)
   
6.             .ChartType = xlStockVOHLC
   
7.             .ChartStyle = 8
   
8.             .ApplyLayout (2)
   
9.             .SeriesCollection(1).Name = "=""成交量"""
   
10.             .SeriesCollection(2).Name = "=""开盘"""
    
11.             .SeriesCollection(3).Name = "=""盘高"""
    
12.             .SeriesCollection(4).Name = "=""盘低"""
    
13.             .SeriesCollection(5).Name = "=""收盘"""
    
14.         End With
    
15.         .ChartObjects(1).Width = 3000
    
16.         .ChartObjects(1).Height = 380
    
17.         .ChartObjects(1).Left = 2
    
18.         .ChartObjects(1).Top = 2
    
19.     End With
    
20. End Sub
    
21. Sub 删除()
    
22.     On Error Resume Next
    
23.     Worksheets(2).ChartObjects(1).Delete
    
24. End Sub

复制代码

642070295

hwc2ycy 发表于 2013-12-17 13:35

请老师注释一下6、7、8 和15、16、17、18 的代码意思好吗？谢谢老师！

hwc2ycy

642070295 发表于 2013-12-17 14:57
请老师注释一下6、7、8 和15、16、17、18 的代码意思好吗？谢谢老师！

1. Sub Macro1()
   
2.     With Worksheets(2)
   
3.         With .Shapes.AddChart.Chart
   
4.             .SetSourceData Source:=Sheets("gjt1").Range("A1:F" & Sheets("gjt1").Range("A65536").End(3).Row)
   
5.             .ChartType = xlStockVOHLC
   
6.             '图表类型：成交量-开盘-盘高-盘低-收盘图。
   
7.             .ChartStyle = 8
   
8.             '图表样式
   
9.             .ApplyLayout (2)
   
10.             '应用图表版式
    
11.             .SeriesCollection(1).Name = "=""成交量"""
    
12.             .SeriesCollection(2).Name = "=""开盘"""
    
13.             .SeriesCollection(3).Name = "=""盘高"""
    
14.             .SeriesCollection(4).Name = "=""盘低"""
    
15.             .SeriesCollection(5).Name = "=""收盘"""
    
16.         End With
    
17.         .ChartObjects(1).Width = 3000
    
18.         '图表对象的宽度
    
19.         .ChartObjects(1).Height = 380
    
20.         '高度
    
21.         .ChartObjects(1).Left = 2
    
22.         '左边缘距离
    
23.         .ChartObjects(1).Top = 2
    
24.         '顶部边缘的距离，以磅为单位
    
25.     End With
    
26. End Sub
    
27. Sub 删除()
    
28.     On Error Resume Next
    
29.     Worksheets(2).ChartObjects(1).Delete
    
30. End Sub

复制代码

642070295

hwc2ycy 发表于 2013-12-17 15:07

老师辛苦了！非常感谢老师！