Можно заранее подготовить нужную легенду (например LegTMP.avl), а потом считать ее и раскрасить.
theThemeLegend=theTheme.GetLegend
theLegendName=("$HOME\LegTMP.avl").AsFileName
theThemeLegend.Load(theLegendName,#LEGEND_LOADTYPE_ALL)
theSymbol = theThemeLegend.GetSymbols.Get(0)
theSymbol.SetColor(Color.GetGreen)
theTheme.UpdateLegend