Fehlerbalken Sichtbarkeit

Question

Ich habe eine Excel-Vorlage, um mehrere Diagramme zu erstellen - über 20 Diagramme auf verschiedenen Blättern angeordnet.

Ich möchte ein Makro einer Schaltfläche oder zwei Tasten zuweisen hinzufügen/entfernen Fehler diese Balken im Wesentlichen durch die transparancy der Linie Manipulation ...

Ich wurde mit dem folgenden Code geholfen, das funktioniert wenn jedes Blatt angeklickt:

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 

wird wie folgt auf jedes Arbeitsblatt gespeichert:

Private Sub Worksheet_Activate() 
Macro2 
End Sub 

Answer 1

Versuchen Linie Ändern For Each objCht In ActiveSheet.ChartObjects zu For Each objCht In ws.ChartObjects. Sie schleifen mehrmals durch Blätter, ohne sie zu verwenden. In zweiter Annäherung, jede Schleife, die Sie Blatt ändern.