FullSeriesCollection

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: FullSeriesCollection
von: Luca Meier
Geschrieben am: 21.09.2015 15:27:25

Hallo zusammen ich verwende folgenden Codeschnipsel:


For i = 1 To Anzahl
    wert = Range("E8").Offset(i - 1, 0).Value
    Worksheets("Inputs").ChartObjects("Diagramm 4").Activate
    With ActiveChart.FullSeriesCollection(3).Points((2 * i) - 1)
        If wert > 0 Then
            With .Format.Fill
                 .ForeColor.Brightness = -0.25
            End With
        Else
            With .Format.Fill
                 .ForeColor.Brightness = 0.6000000238
            End With
        End If
    End With
    ActiveChart.FullSeriesCollection(3).DataLabels.AutoText = True
Next i

Nun möchte ich dies aber ohne das ganze "Activate"Zeugs schreiben. Jedoch klappt es nicht wenn _ ich einfach

With Worksheets("Inputs").ChartObjects("Diagramm 4").FullSeriesCollection(3).Points((2 * i)-1)

schreibe.
Hat jemand eine Lösung ?
Vielen Dank im Voraus

Bild

Betrifft: AW: FullSeriesCollection
von: EtoPHG
Geschrieben am: 21.09.2015 15:32:14
Hallo Luca,
ungetestet:

With Worksheets("Inputs").ChartObjects("Diagramm 4").Chart.FullSeriesCollection(3).Points((2 * i)-1)
Gruess Hansueli

Bild

Betrifft: AW: FullSeriesCollection
von: Luca Meier
Geschrieben am: 21.09.2015 15:34:10
hat geklappt, danke vielmal :)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schreibgeschützt; farbige Zellen nicht drucken"