Answer Question
0
0

Hezký den,
mám trochu problém, jak změnit u popisku grafu velikost písma a styl písma pomocí VBA. Všechny popisky jsem nejdříve neumožnil zobrazit a zobrazuji popisek jen pro zvolený den u dané řady. To mi funguje, ale je to velikost 9 a Calibri (default ) a u ostatních řad, které VBA neměním mám Arial a 16.
Používám tento zápis pro změnu velikosti písma
bod2.DataLabel.Format.TextFrame2.TextRange.Font.Size = 16
Velikost se sice změní, ale popisek zmizí úplně a rámeček s popiskem se smrskne jako by tam nic nebylo. Když na to kliknu je tam něco s velikostí 16, co není vidět:)
Nevíte co dělám špatně?:) Asi zápis za .DataLabel je špatně….To jsem tam vrazil podle záznamníku makra
děkuji moc
Petr
ps.Celý kód
Dim bod2 As Point
Dim radaLY1 As Series
d = Day(Range(“B59”))
radaLY1.ApplyDataLabels xlDataLabelsShowNone
Set bod2 = radaLY1.Points(d)
bod2.ApplyDataLabels xlDataLabelsShowValue
Sem vše OK
bod2.DataLabel.Format.TextFrame2.TextRange.Font.Size = 16

Marked as spam
Odeslal Anonymous
Otázka položena 11.5.2021 7:06
56 views
0
Private answer

Tak už jsem na přišel:) Musím to nejdříve vybrat, abych to mohl editovat...
ActiveSheet.ChartObjects(1).Select
ActiveChart.FullSeriesCollection(3).DataLabels.Select

Marked as spam
Odeslal Anonymous
Odpověděl 12.5.2021 7:53

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]