labels bij spreidingsgrafiek

[Ron]

Ik heb een spreidingsgrafiek in Excel, waarbij ik als
range een bepaalde tabel heb genomen. Nu wil ik voor ieder
punt in de grafiek een label weergeven. Echter, het is
neit mogelijk om dat middels een range aan te geven.
Hoe kan ik dit oplossen, zonder elk punt als aparte serie
in te voeren (90 punten is vrij veel werk).

[john]

Wellicht dat ik je niet begrepen heb maar dit is volgens
mij niet zo moeilijk

klik met rechts op een item van de spreidingsdiagram
klik nu op gegevenslabels
maak dan je keuze

suc 6

John
>-----Oorspronkelijk bericht-----

>.
>

[Rob]

Je hebt me goed begrepen, maar het is op die manier echter
neit mogelijk.

Zal even voorbeeld van mijn tabel geven

Kolom 1 Kolom 2 Kolom 3
----------------------------
100 20% 30%
121 39% 15%
134 17% 40%
etc.

Kolom 2 heeft de waarden voor de x-as, Kolom 3 voor de y-
as. Nu wil ik dat bij punt (20%,30%) het label "100"
verschijnt. Hoe doe ik dit?

>-----Oorspronkelijk bericht-----

>.
>

[john]

Ik begrijp nu wat je bedoeld.
Indien je bij de defnities het één voor één aangeeft kan
het. Maar dat is gezien de omvang van jouw reeks niet te
doen.
Dit moet dus geprgrammeerd worden.

Daar heb ik nu (nog) geen tijd voor
Hieronder een opzetje waar je een en ander middels een
variabele via for en next zou kunnen proberen op te lossen

Sub spreidingsdiagram()

' De macro is opgenomen op 05-11-2003 door John.
'

'
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets
("Blad1").Range("C12:E15"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Blad1!
R13C4"
ActiveChart.SeriesCollection(1).Values = "=Blad1!
R13C5"
ActiveChart.SeriesCollection(1).Name = "=Blad1!R13C3"
ActiveChart.SeriesCollection(2).XValues = "=Blad1!
R14C4"
ActiveChart.SeriesCollection(2).Values = "=Blad1!
R14C5"
ActiveChart.SeriesCollection(2).Name = "=Blad1!R14C3"
ActiveChart.SeriesCollection(3).XValues = "=Blad1!
R15C4"
ActiveChart.SeriesCollection(3).Values = "=Blad1!
R15C5"
ActiveChart.SeriesCollection(3).Name = "=Blad1!R15C3"
ActiveChart.Location Where:=xlLocationAsObject,
Name:="Blad1"
End Sub

suc 6

>.
>

[Rob]

Hmmm, begrijp er nog niet veel van, maar zal er eens naar
kijken... In elk geval bedankt voor de moeite.

>-----Oorspronkelijk bericht-----

[john]

Ron,

als je je mailadres naar me toemailt, heb ik een leuke
oplossing voor je. Misschien zelfs wel een hele mooie
oplossing.
een druk op de knop is voldoende om alles voor elkaar te
krijgen

John
>-----Oorspronkelijk bericht-----

>.
>