通过vb6.0的控件生产excel表，并插入一个矩形，如图
代码如下：
Private Sub Command3_Click()
Dim xlapp As New Excel.Application '定义excel对象
Dim xlbook As Excel.Workbook '定义excel工作薄
Dim xlsheet As Excel.Worksheet '定义excel工作表
Set xlapp = CreateObject("Excel.Application") '新建excel对象
Set xlbook = xlapp.Workbooks.Add '新建excel工作薄
xlapp.Visible = True '设置excel对象可见
Set xlsheet = xlbook.Worksheets("sheet1")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50, 747.1, 170).Select
Selection.ShapeRange.Fill.Visible = msoFalse
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 2.25 '线条粗细
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0) '线框颜色
.Transparency = 0
End With
End Sub
运行结果提示“”
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50, 747.1, 170).Select这一行指定的值超出了范围，请高手解答，万分感谢！