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

179

Ää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. Taas uusi PS:n rasismiKOHU!

      Nyt Mauri Peltokangas on taas huuliaan lepattanut. Suomen rasistisin puolue - PS! https://www.iltalehti.fi/politiikka/a
      Maailman menoa
      492
      983

    2. Mikä on kaivattusi toinen nimi?

      😊
      Ikävä
      57
      638

    3. Onnittelut taktiikan vaihdoksesta mies!

      Esität nykyisin varattua, ettei naiset jää roikkumaan , mutta sinä saat haluamasi. Oletpa sinä hieno mies. 👏🏻 Osasin o
      Ikävä
      160
      583

    4. Olen henkisesti väsynyt. Takki tyhjä.

      Olen joutunut elämään yksin liian kauan. Työttömänä ja somepaskaa. Työpaikoilla joudun kiusatuksi. En enää tiedä, mitä
      Maailman menoa
      166
      558

    5. Pitääkö minun pyytää

      Itse itseni sinun luo tällä viikolla vai tajuatko itse pyytää ??
      Ikävä
      51
      555

    6. Jarruton, viritetty ja kilvetön mopo

      Ajo-oikeudeton ja uppiniskainen kuski. Tuloksena vääntynyt aita, rusinaksi muuttunut mopo ja pari pipiä.
      Maailman menoa
      233
      530

    7. Katotaan miten jaksat tätä

      Olen valmis pelaamaan tätä seuraavat 10v. Voit kysyä tutuilta miten olen erittäin kärsivällinen.
      Ikävä
      73
      499

    8. Tiedätkö mitä mies

      Sinulla ei ole kaikki kunnossa päänupissa! Älä pilaa sitä, mitä sinulla on oikeassa elämässä. Tämä ei ole mitään rakkaut
      Ikävä
      20
      466

    9. Naisten liian suuret vaatimukset?

      Palstalla näkee usein vlituksia siitä, että naisilla on miehille liian suuria vaatimuksia. Haluankin nyt mielenkiinnosta
      Sinkut
      93
      451

    10. Peräti 12 000 ihmisen toimeentulo leikattiin puoleen kun eivät ilmoittautuneet työkkäriiin!

      Peräti 12 000 ihmisen (useimmat nuoria miehiä) toimeentulo leikattiin puoleen kun eivät ilmoittautuneet työkkäriiin! ht
      Maailman menoa
      187
      450
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt