ExcelRules
Nieuwe gebruiker
- Lid geworden
- 25 nov 2011
- Berichten
- 4
Al een week zit ik met het volgende probleem te worstelen:
Ik heb in excel een spreidingsgrafiek met punten. Elk punt heeft een datalabel. Op basis van bepaalde voorwaarden wil ik in vba een deel van het datalabel wijzigen van kleur, bijv. naar rood. Voorbeeld: in het label "A12; A14; A15" wil ik A14 roodgekleurd hebben, dus "A12; A14; A15"; de rest blijft zwart.
Daarvoor gebruik ik o.a. het volgende stukje vba-code:
Hierbij is Grafiek een Chart; t1 het indexnummer van de punt; a en b zijn "longs" die de beginpositie en de lengte in de label weergeven; in bovenstaand voorbeeld voor A14 dus resp. 6 en 3.
Helaas blijkt dat als ik bovenstaande code gebruik, dat in alle labels karakters 6 tm 8 van kleur veranderen ipv alleen het gewenste punt. Daarnaast geeft vba ook nog een foutmelding (maar die heb ik even lelijk middels een on error omzeild).
Weet iemand wat fout is aan bovenstaande code of hoe een deel van een enkele label kan worden opgemaakt?
Ik heb in excel een spreidingsgrafiek met punten. Elk punt heeft een datalabel. Op basis van bepaalde voorwaarden wil ik in vba een deel van het datalabel wijzigen van kleur, bijv. naar rood. Voorbeeld: in het label "A12; A14; A15" wil ik A14 roodgekleurd hebben, dus "A12; A14; A15"; de rest blijft zwart.
Daarvoor gebruik ik o.a. het volgende stukje vba-code:
Code:
With Grafiek.SeriesCollection(1).Points(t1).DataLabel
.Characters(a, b).Font.Color = vbRed
End With
Hierbij is Grafiek een Chart; t1 het indexnummer van de punt; a en b zijn "longs" die de beginpositie en de lengte in de label weergeven; in bovenstaand voorbeeld voor A14 dus resp. 6 en 3.
Helaas blijkt dat als ik bovenstaande code gebruik, dat in alle labels karakters 6 tm 8 van kleur veranderen ipv alleen het gewenste punt. Daarnaast geeft vba ook nog een foutmelding (maar die heb ik even lelijk middels een on error omzeild).
Weet iemand wat fout is aan bovenstaande code of hoe een deel van een enkele label kan worden opgemaakt?