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
这样就可以运行.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货