VBA Excelで線の太さと強度を設定（またはリセット）する方法は？次のコードで

Question

：

For i = 1 To j 
     ActiveChart.SeriesCollection(i).Select 
     With Selection 
      .MarkerStyle = xlNone 
      .Smooth = False 
      .MarkerSize = 2 
      .Shadow = False 
     End With 
     With Selection.Border 
      .Weight = 1 
      .LineStyle = xlContinuous 
      Select Case i 
       Case 1 To 2 
        .ColorIndex = black 
        .Weight = 4 
        .LineStyle = xlDot 
       Case 3 
        .ColorIndex = red 
        .Weight = 5 
       Case 4 
        .ColorIndex = light_brown 
        .TintAndShade = 0.5 
       Case 5 
        .ColorIndex = dark_blue 
        .TintAndShade = 0.5 
       Case 6 
        .ColorIndex = solid_blue 
        .TintAndShade = 0.5 
       Case 7 
        .ColorIndex = cyan 
        .TintAndShade = 0.5 
       Case 8 
        .ColorIndex = bright_green 'purple 
        .Weight = 5 
       Case 9 
        .ColorIndex = bright_green 
        .Weight = 5 
       Case Else 
        .ColorIndex = black 
        .Weight = 2 
      End Select 
     End With 
    Next i 

それはケース3 VBAで停止し、「国境クラスのWeightプロパティを設定できません」であることを主張し どのように私は自分の太さや色と異なるラインを作ることができます強度？ ありがとう

Answer 1

これは私のために働く。お持ちであることを確認してください.Format.Line.Visible = msoTrue

With ActiveChart 
    With .SeriesCollection(1) 
     With .Format.Line 
      .Visible = msoTrue 
      .ForeColor.RGB = RGB(91, 155, 213) 
     End With 
     .Border.Weight = 2 
    End With 
    With .SeriesCollection(2) 
     With .Format.Line 
      .Visible = msoTrue 
      .ForeColor.RGB = RGB(91, 155, 213) 
     End With 
     .Border.Weight = 3 
    End With 
    With .SeriesCollection(3) 
     With .Format.Line 
      .Visible = msoTrue 
      .ForeColor.RGB = RGB(91, 155, 213) 
     End With 
     .Border.Weight = 4 
    End With 
End With