VBA练习

oyzjo

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeCross, 10, 10, 50, 70).Line
    .Weight = 8
     DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(255, 0, 0)
End With