エラーバーの可視性

Question

私は、複数のチャートを作成するためのテンプレートを用意しています.20以上のチャートが別のシートに配置されています。

私は私が仕事をして、次のコードを手伝っていた...ラインのtransparancyを操作することによって、これらのバーは基本的にエラーを追加/削除するには、ボタンまたは2つのボタンにマクロを割り当てるために

をしたいと思います各シートがクリックされたとき：

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 

次は、各ワークシートに保存されます。

Private Sub Worksheet_Activate() 
Macro2 
End Sub 

Answer 1

はラインを変更してみてくださいFor Each objCht In ActiveSheet.ChartObjectsFor Each objCht In ws.ChartObjects。シートを使用せずに複数回繰り返します。 2番目のアプローチでは、ループごとにシートを変更します。