Set XLSSheet = XLSBOOK.Worksheets(1)
    
    With XLSSheet.Shapes.AddLine(10, 10, 250, 250).Line
       .DashStyle = msoLineDash
       .ForeColor.RGB = RGB(50, 0, 128)
    End With上述代码中的msoLineDash在VB编译器里,说没定义.怎么解决? 怎么把VBA里面的常量(象msoLineDash)添加到VB里来?Set XLSSheet = XLSBOOK.Worksheets(1)
    
    With XLSSheet.Shapes.AddLine(10, 10, 250, 250).Line
       .DashStyle = 4
       .ForeColor.RGB = RGB(50, 0, 128)
    End With
这样就可以运行.