製作誤差線Excel圖表透明

Question

我試圖使誤差條transparrent ...代碼工作，使誤差條上一個工作表一個圖表上透明的，但最好我會通過像這樣循環不同工作表上的多個Excel圖表...

Sub Macro2() 

Dim objCht As ChartObject 

For Each objCht In ActiveSheet.ChartObjects 
    ActiveChart.SeriesCollection(1).HasErrorBars = True 
    ActiveChart.SeriesCollection(1).ErrorBars.Select 
    With Selection.Format.Line 
     .Visible = msoTrue 
     .ForeColor.ObjectThemeColor = msoThemeColorText1 
     .ForeColor.TintAndShade = -0.0500000119 
     .ForeColor.Brightness = 0 
     .Transparency = 1 
    End With 
Next objCht 

End Sub 

Answer 1

對於所有工作表，您只需要一個循環。事情是這樣的：

Dim objCht As ChartObject 

For Each ws In ThisWorkbook.Worksheets 

    For Each objCht In ws.ChartObjects 
    ActiveChart.SeriesCollection(1).HasErrorBars = True 
     ActiveChart.SeriesCollection(1).ErrorBars.Select 
     With Selection.Format.Line 
     .Visible = msoTrue 
     .ForeColor.ObjectThemeColor = msoThemeColorText1 
     .ForeColor.TintAndShade = -0.0500000119 
     .ForeColor.Brightness = 0 
     .Transparency = 1 
     End With 
    Next objCht 

Next ws 

Answer 2

嘗試下面的代碼，就沒有必要使用Select：

Sub Macro2() 

Dim objCht As ChartObject 
Dim ws As Worksheet 

' loop through sheets in this workbook 
For Each ws In ThisWorkbook.Worksheets 
    ' loop through Chartobjects in sheet 
    For Each objCht In ActiveSheet.ChartObjects 
     ' no need to select the chart or the series use With statement instead 
     With objCht.Chart.SeriesCollection(1) 
      .HasErrorBars = True 
      With .ErrorBars.Format.Line 
       .Visible = msoTrue 
       .ForeColor.ObjectThemeColor = msoThemeColorText1 
       .ForeColor.TintAndShade = -0.0500000119 
       .ForeColor.Brightness = 0 
       .Transparency = 1 
      End With 
     End With 
    Next objCht 
Next ws 

End Sub