De onderstaande code gebruik ik om een grafiek op een grafiekblad bij te werken. Allereerst wordt het werkblad en vervolgens de grafiek geselecteerd. Daanra wordt de nieuwe datarange in de eigenschappen gezet. Deze range (MyGDRange) is eerder in de sub gedefinieerd. Als het op het moment van bijwerken februari is (M=2), moet de titel van de grafiek worden gewijzigd (Y). Deze titel staat vet de tweede regel moet weer op standaard gezet worden in puntgrootte 9. Op zich werkt de onderstaande code wel, maar zou volgens mij efficienter kunnen, zelfs zonder de grafiek of het werkblad te moeten selecteren, ik krijg dit alleen niet voor elkaar. Wie weet hierop raad?
Code:
Sheets("Grafiek Downloads").Activate
ActiveChart.SetSourceData Source:=MyGDRange
If M = 2 Then
ActiveChart.ChartTitle.Characters.Text = "Downloads per rubriek in " & Y & Chr(10) & "in procenten van het totaal van de rubrieken"
With ActiveChart.ChartTitle.Characters(Start:=31, Length:=44).Font
.FontStyle = "Standaard"
.Size = 9
End With
End If
ActiveChart.Deselect