DIAGRAMMLINIEN MITTELS NUMMER ODER NAMEN EIN-/AUSBLENDEN

Das Script ist Bestandtei des Excel Add-Ins

Public Sub Linien_ein_ausblenden(strDiagramm As String, LineNumber As Integer)
    ActiveSheet.ChartObjects(strDiagramm).Activate
    ActiveChart.SeriesCollection(LineNumber).Select
    If Selection.Format.Line.Visible = msoTrue Then
        Selection.Format.Line.Visible = msoFalse
    ElseIf Selection.Format.Line.Visible = msoFalse Then
        Selection.Format.Line.Visible = msoTrue
    End If
End Sub


Public Sub Linien_ein_ausblenden_byName(strDiagramm As String, strName As String)
    Dim i As Integer
    ActiveSheet.ChartObjects(strDiagramm).Activate
    For i = 1 To ActiveChart.SeriesCollection.Count
        If ActiveChart.SeriesCollection(i).Name = strName Then
        ActiveChart.SeriesCollection(LineNumber).Select
            If Selection.Format.Line.Visible = msoTrue Then
                Selection.Format.Line.Visible = msoFalse
            ElseIf Selection.Format.Line.Visible = msoFalse Then
                Selection.Format.Line.Visible = msoTrue
            End If
        End If
    Next i
End Sub