Surface-graafin värien muuttaminen

1+14

Haluaisin tehdä makron, jolla muutan surface-tyypin värejä. Manuaalisesti tämä onnistuu, mutta se on älyttömän hankalaa. Haluan, että värit kattavat tietyln skaalan, vaikka Labelien lukumäärä vaihtelee.. En ole keksinyt, miten tämä tehdään.

7

180

Äänestä

    Vastaukset 7

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Mr. VBA

      Moi, toimisiko alla oleva ? Moduulin alkuun (aivan moodulin alkuun) teksti

      Option Base 1

      ja sitten alemmas makro

      Sub GraafiVarit()
      ' makrolla voi muuttaa graafien sarjojen värejä
      ' toimii vain aktiiviseen kaavioon, legend tulee olla myös esillä kaaviossa
      ' HUOM! moduulin alkuun tulee lisätä lause "Option Base 1"

      Dim Varit() As Variant
      Dim Leg As Integer
      Dim i As Integer

      ' määrittele seuraavalla rivillä array-muuttujan arvoiksi haluamasi väriarvot
      ' esim joka toinen eri väri-> Varit = Array(5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4)
      ' oletuksena alla 12 eri väriä

      Varit = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)

      On Error Resume Next
      Leg = ActiveChart.Legend.LegendEntries.Count

      For i = 1 To UBound(Varit)
      ActiveChart.Legend.LegendEntries(i).LegendKey.Interior.ColorIndex = Varit(i)
      Next i

      End Sub

    • kunde

      "Haluan, että värit kattavat tietyln skaalan, vaikka Labelien lukumäärä vaihtelee.. .."
      ;-)

      Keep EXCELing
      @Kunde

      • 1+14

        Sorry, ei Label, vaan Band. En keksi, millä saan muutettua Bandin väriä, ts. tuota kommentiksi muutettua riviä olen yrttänyt tuloksetta kirjoittaa monella tavalla.

        Private Sub SpinButton2_Change()
        ActiveSheet.ChartObjects("Chart 1").Activate
        Application.ScreenUpdating = False
        With ActiveChart
        le = SpinButton2.Value
        Max = .Axes(xlValue).MaximumScale
        .Axes(xlValue).MinimumScale = Max - le
        n = 0
        For Each objLE In ActiveChart.Legend.LegendEntries
        ' objLE.LegendKey.MarkerForegroundColor = Väri(n / le)
        n = n 1
        Next
        End With
        End Sub

      • ...
        1+14 kirjoitti:

        Sorry, ei Label, vaan Band. En keksi, millä saan muutettua Bandin väriä, ts. tuota kommentiksi muutettua riviä olen yrttänyt tuloksetta kirjoittaa monella tavalla.

        Private Sub SpinButton2_Change()
        ActiveSheet.ChartObjects("Chart 1").Activate
        Application.ScreenUpdating = False
        With ActiveChart
        le = SpinButton2.Value
        Max = .Axes(xlValue).MaximumScale
        .Axes(xlValue).MinimumScale = Max - le
        n = 0
        For Each objLE In ActiveChart.Legend.LegendEntries
        ' objLE.LegendKey.MarkerForegroundColor = Väri(n / le)
        n = n 1
        Next
        End With
        End Sub

        MarkerForegroundColor = RGB(0,255,0)

      • 1+14
        ... kirjoitti:

        MarkerForegroundColor = RGB(0,255,0)

        Millaisen rimpsun perään tuo MarkerForegroundColor on laitettava, jotta sille voidaan antaa arvo?

      • 1+14
        1+14 kirjoitti:

        Millaisen rimpsun perään tuo MarkerForegroundColor on laitettava, jotta sille voidaan antaa arvo?

        No, jo keksin. Ei mikään MarkerForegroundColor olekaan. Yllä kommentoitu rivi pitää olla muodossa:

        objLE.LegendKey.Interior.Color = Väri(n / ny)

    • 1+14

      Ei Label, vaan Band.Sorry. En ole onnistunut muuttamaan Bandien värejä.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä on mietteissäsi

      Tänään?
      Ikävä
      66
      754

    2. En olis uskonu

      et kuulut tollaseen porukkaan
      Ikävä
      113
      722

    3. Mikä on hulluinta?

      Mitä ikäväsi kohde on tehnyt?
      Ikävä
      37
      696

    4. Meiltä löytyy kyllä älliä

      Vai mitä oot mieltä...
      Ikävä
      128
      642

    5. Et taida olla ihan varma

      Päätöksestäsi?
      Ikävä
      67
      589

    6. En haluaisi sanoa tätä

      Mutta olet sokea sille, mitä sinulla jo on! Jos minä olisin sinä, pyrkisin tekemään kaikkeni kohentaakseni nykyistä pari
      Ikävä
      40
      589

    7. Vasemmiston aloite

      Pyhäjärvellä, ihan hyvä aloite. Toteutus ja puhdistus pitäisi alkaa ihan omasta pesästä. Näkeehän tuon sokeakin mitä ja
      Pyhäjärvi
      58
      483

    8. Koska Sofia kertoo totuuden, että ovat eroneet miljonääri miehen kanssa?

      Eikö olisi hänelle itselleen helpotus, kun voisi kertoa totuuden. Miksi salata asiaa ja pitkittää sitä harmaan tulevaisu
      Kotimaiset julkkisjuorut
      142
      459

    9. Onko suhtautuminen kaivattusi

      Fyysiseen vetovoimaan muuttunut? Jos, mihin suuntaan? Tunnetko enemmän vai vähemmän vetoa häneen fyysisesti kuin silloin
      Ikävä
      35
      458

    10. Miltä tuntuu

      olla erossa kaivatustasi?
      Ikävä
      26
      455

    11. Miksi vihainen

      Miksi olet vihainen mulle?
      Ikävä
      41
      422

    12. Maajussille morsian: Farmiviikon voittajat ja häviäjät - Itkua ja pettymystä ei salattu

      Maajussille morsian -suosikkisarjassa farmiviikolla selviää, onko ilmassa "sitä jotakin". Rakkauden etsintä on täynnä i
      Maajussille morsian
      0
      395

    13. Näyttää siltä ettet edes sinä.

      Kukaan ei uskalla kohdata aitoa ja syvää sielun rakkautta. Hyvin harvat vain. Ihmisten on turha tavoitella sitä oikeaa
      Ikävä
      28
      389

    14. Jos olen aiheuttanut pahaa, pyydän anteeksi

      Jos olen omalla kirjoittelullani aiheuttanut täällä jollekin pahaa mieltä tai sotkenut asioita, niin pyydän sitä anteeks
      Ikävä
      58
      377

    15. Kun asiat pitkittyy niin ne mutkistuu

      Mutkaista jo on, ei nämä enää selviä.
      Ikävä
      29
      374

    16. Hei, alettaisko oleen yhdessä?

      Miltä tuntuisi jos joku ihminen josta tykkäät sanoisi haluavansa yhteen asumaan? Ajattelisitko menettäväsi vapauden, pys
      Sinkut
      64
      374

    17. Jää tyhjää tila

      Kun ärrä loppuu. Toivottavasti ei kyhätä siihenkin kirppari. Hävettää koko keskusta.
      Ähtäri
      24
      359

    18. Miks tämä jatkuu näin pitkään?

      Ootko rakastunut?
      Ikävä
      23
      357

    19. Tunnistan mun rakkaan

      Kirjoituksen heti kun se on täällä. Mä vaan tiedän sen ja tunnen 🤗
      Ikävä
      59
      357

    20. Missä suutelitte ekan kerran?

      😘
      Ikävä
      32
      351
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt