破線
Dim sDash(1) As Object sDash = New Object() {6.0, 3.0} With Line .Filled = False .Stroked = True .StrokeColor = LineColor("B") .StrokeWidth = 2 .StrokeDashes = sDash End With
Dim sDash(1) As Object sDash = New Object() {6.0, 3.0} With Line .Filled = False .Stroked = True .StrokeColor = LineColor("B") .StrokeWidth = 2 .StrokeDashes = sDash End With