Popisky grafu a VBA

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