急,用ADDSHPAE方法总是报越界错!!!!100分!!!

Question

用VB生成EXCEL,在上面生成流程图,
想先画几个框,总是报1004的错.代码
Private Sub cmdTest_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    xlApp.Visible = True
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Activate
    xlSheet.Range("C3").Value = "1"
    xlSheet.Cells(1, 1) = "test"    xlSheet.Range("A1").Select
    xlSheet.Shapes.AddShape msoShapeFlowchartStoredData, 100, 100#, 100, 100 '执行到这就报,,这些参数无论怎么改都报错,是怎么搞的?
    xlSheet.Shapes.AddShape msoShapeFlowchartCard, 10, 10, 10, 10
    xlSheet.Shapes.AddShape msoShapeFlowchartProcess, 10, 10, 10, 10

Answer 1

msoShapeFlowchartStoredDatamsoShapeFlowchartCardmsoShapeFlowchartProcess这些常数缺少引用需要引用microsoft Office 11.0 Object Library （根据你的office版本适当改变）

Answer 2

msoShapeFlowchartStoredData msoShapeFlowchartCard msoShapeFlowchartProcess 这些是 office 库里的常量，你在VB中使用，需要自己重新定义，或在代码直接使用常值
也可以如1楼的，引用 microsoft Office 11.0 Object Library 后再引用动态库中的常量

Answer 3

在excel中的vba就可以不用引用。