Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[Excel 2010/VBA] Titel grafiek niet zichtbaar...

Pagina: 1
Acties:

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
... tot men enkele keren klikt.

Het is wat moeilijk uit te leggen dus je kan een dummy Excelbestand downloaden (security warning: mét macro!).

Er zijn 10 tabbladen en van belang voor deze thread is het 3e (en het 6e en het 9e, maar die gebruiken allemaal dezelfde VBA code).

Nadat men een product kiest in een dropdownlist wordt een grafiek gemaakt met de evolutie van dat product. Alleen: de titel van de grafiek verschijnt niet. Wat het vreemd maakt is dat na enkele keren - random, dat kan 1 klik zijn of 20 klikken - de titel wél tevoorschijn komt.

In mijn dummy file krijg ik overigens totaal geen titel om een of andere reden.

Ik breek mijn hoofd er al dagen over en vraag me af of iemand hier een verklaring heeft.

Dropdownlist
Afbeeldingslocatie: http://tweakers.net/ext/f/hXpHZ175Ss3AvzM4JbR6aR37/full.jpg

Grafiek
Afbeeldingslocatie: http://tweakers.net/ext/f/Tlm5gNmRcLtJrSrtfaX8GJW6/full.jpg

Grafiek na enkele keren van product te veranderen
Afbeeldingslocatie: http://tweakers.net/ext/f/g9Iv3KPXzAyYIvm3P8DP7LHN/full.jpg

Vreemd, vreemd, vreemd... .

Verwijderd

niet zo vreemd, nergens in de code bevindt zich het statement om de titel aan te passen :)

Visual Basic:
1
2
activechart.hastitle=true
activechart.charttitle.text="blaat"

  • YellowOnline
  • Registratie: Januari 2005
  • Laatst online: 28-03-2023

YellowOnline

BEATI PAVPERES SPIRITV

Topicstarter
Verwijderd schreef op donderdag 02 augustus 2012 @ 12:56:
niet zo vreemd, nergens in de code bevindt zich het statement om de titel aan te passen :)

Visual Basic:
1
2
activechart.hastitle=true
activechart.charttitle.text="blaat"
De naam wordt toch ingevuld door de eerste lijn van onderstaande?
Visual Basic:
1
2
3
ActiveChart.SeriesCollection(1).Name = strGraphName
ActiveChart.SeriesCollection(1).Values = arrGraphValues
ActiveChart.SeriesCollection(1).XValues = arrGraphLabels


Als het helemaal niet ingevuld zou worden, waarom verschijnt de titel dan de ene keer wel en de andere keer niet?

Ik heb het nu veranderd naar...

Visual Basic:
1
2
3
4
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = strGraphName
ActiveChart.SeriesCollection(1).Values = arrGraphValues
ActiveChart.SeriesCollection(1).XValues = arrGraphLabels


... en nu werkt het perfect - waarvoor mijn dank! Maar waarom het eigenlijk verkeerd ging snap ik nog steeds niet.

Natuurlijk, de code die ik gebruik is voortgebouwd op een recorded macro. Dan weet je meteen iets minder waar je mee bezig bent.

Edit: Natuurlijk, die .Name property verwijst misschien gewoon naar een naam die je aan de collectie geeft. In dat geval snap ik niet waarom de titel af en toe wél opduikt :s

[ Voor 14% gewijzigd door YellowOnline op 02-08-2012 13:07 ]