Excel - Automatická změna pozice popisků

de to udělat jedině ve VisualBasicu tedy musíš si to doprogramovat jinak to asi nepude...

Jo, to mně bylo docela jasný už když jsem to psal, spíš jen bych potřeboval sehnat někoho ochotného, kdo ve VB napíše ten logický argument pro třeba první popisek a na další už si to přepíšu..

Sub ArangeDataLabels()Dim i As Integer, Cnt As IntegerDim Val1 As Double, Val2 As Double With ActiveChart Cnt = .SeriesCollection(1).Points.Count For i = 1 To Cnt Val1 = .FullSeriesCollection(1).Points(i).DataLabel.Caption * 1 Val2 = .FullSeriesCollection(2).Points(i).DataLabel.Caption * 1 If Val1 >= Val2 Then .FullSeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionBelow .FullSeriesCollection(2).Points(i).DataLabel.Position = xlLabelPositionAbove Else .FullSeriesCollection(1).Points(i).DataLabel.Position = xlLabelPositionAbove .FullSeriesCollection(2).Points(i).DataLabel.Position = xlLabelPositionBelow End If Next i End With End SubNemáš zač

Jaj, chybička se vloudila - musíš přehodit podmínku...

Ježiš to je paráda! Dal by se tam ještě nějak vtěsnat argument, že to makro se spustí pro všechny objekty, který jsou graf na danym listu?Každopádně mockrát děkuju!