vb6.0在excel中绘制矩形的问题

exln

用vb6.0新建一个excel，并绘制一个矩形，如下：

程序代码如下：

1. Private Sub Command3_Click()
   
2. Dim xlapp As New Excel.Application          '定义excel对象
   
3. Dim xlbook As Excel.Workbook                '定义excel工作薄
   
4. Dim xlsheet As Excel.Worksheet              '定义excel工作表
   
5.    Set xlapp = CreateObject("Excel.Application")        '新建excel对象
   
6.    Set xlbook = xlapp.Workbooks.Add         '新建excel工作薄
   
7.        xlapp.Visible = True             '设置excel对象可见
   
8.        Set xlsheet = xlbook.Worksheets("sheet1")
   
9. <font style="background-color: yellow;" color="#000000">ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50, 747.1, 170).Select</font>
   
10. '（矩形，距离左侧宽度，距离顶部高度13.5*n，长度6.375*10.6*n，高度13.5*n+2*Diata(h)）
    
11. 'kk = Range("h25").Width / Columns(1).ColumnWidth  查看每个单元格宽度命令
    
12.     Selection.ShapeRange.Fill.Visible = msoFalse
    
13.     With Selection.ShapeRange.Line
    
14.         .Visible = msoTrue
    
15.         .Weight = 2.25                                                                                                      '线条粗细
    
16.     End With
    
17.     With Selection.ShapeRange.Line
    
18.         .Visible = msoTrue
    
19.         .ForeColor.RGB = RGB(255, 0, 0)                                                                      '线框颜色
    
20.         .Transparency = 0
    
21.     End With
    
22. End Sub
    

复制代码

运行后单击按钮，上面黄色这一样提示错误，错误类型为：指定的值超出了范围，请高手告诉我是什么原因？

exln

代码标记为黄色，发帖后发现显示成了代码，是这一样代码ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50, 747.1, 170).Select
前面的代码：
<font style="background-color: yellow;" color="#000000">是论坛自动添加的，实际程序中没有！