ikaner
Goto Top

Dynamische Kreisformen über VBA-Code mit jeweiliger Linienfarbe ausfüllen

Hallo zusammen,

ich hab da wieder ein Problem und zwar folgendes:

ich möchte gerne mehrere dynamische Kreisformen über einen VBA-Code farbig ausfüllen. Hab im Netz leider nichts Passendes gefunden.
996c8f0d6e9e4de9620d6841d3aa1b2e

Die Koordinaten der einzelnen Kreislinien sind mit Formeln hinterlegt:
31d5684403f753f5b0176016946697ea

Die graue und rote Kreisform sind vom Radius her fix. Nur die orangene Form ändert sich.

Ich hoffe, es war nicht allzu unverständlich dargestellt und dass ihr mir helfen könnt. =)

Gruß

Ikaner

Content-Key: 271837

Url: https://administrator.de/contentid/271837

Ausgedruckt am: 28.03.2024 um 13:03 Uhr

Mitglied: 114757
114757 13.05.2015 aktualisiert um 11:43:27 Uhr
Goto Top
Moin,
eine Farbe einer Serie eines Charts kannst du so verändern:
Sub FormatChart()
    Dim c As ChartObject, ch As Chart
    With ActiveSheet
        'Auf das ChartObjekt im Sheet verweisen  
        Set c = .ChartObjects(1)
        Set ch = c.Chart
        ' Farbe der Linie des ersten Datensatzes ändern  
        ch.SeriesCollection(1).Format.Line.ForeColor.RGB = vbGreen
    End With
End Sub
Zum füllen benutze statt Line die Eigenschaft Fill.
Weitere Eigenschaften um den Chart zu formatieren findest du hier:

Gruß jode32
Mitglied: Ikaner
Ikaner 21.05.2015 um 18:40:24 Uhr
Goto Top
Hallo jodel,

muss ich den Code noch irgendwie anpassen, da sich nichts ändert.

Gruß Ikaner
Mitglied: 114757
114757 21.05.2015 aktualisiert um 18:46:55 Uhr
Goto Top
Zitat von @Ikaner:
muss ich den Code noch irgendwie anpassen, da sich nichts ändert.
Ja sicher, war ja nur ein Beispiel...

Das Beispiel geht davon aus das der Chart der einzigste(bzw erste) auf dem aktiven Blatt ist und genommen wird die erste Serie des Charts.
Ein bisschen solltest du dich schon mit dem Code auseinander setzen.
Mitglied: Ikaner
Ikaner 21.05.2015 um 20:07:00 Uhr
Goto Top
Ja da hast du recht.

Ich bin mir nur nicht sicher, was in Zeile 5+6 deines Codes geändert werden muss.

Das Diagramm heißt "Diagramm 2" und die Reihe "Kernradius".

Oder doch in Zeile 8 die SeriesCollection abändern?

ich habe mehrere Möglichkeiten ausprobiert, doch es kommt immer eine Fehlermeldung
Mitglied: 114757
114757 22.05.2015 um 00:10:40 Uhr
Goto Top
Lad doch einfach mal dein Sheet hoch dann ist das in ein paar Minuten.erledigt face-wink