Colores en gráficos

hola, Carlos !

... detectar automaticamente el maximo valor en un grafico de columnas y que este siempre se pinte de color rojo.
Tengo varios graficos.

-> suponiendo que tienes los datos 'de origen' [valores] en el rango 'B2:B13'
-> y 'hablando' de UN grafico incrustado en la hoja [suponiendo que es el primero con una sola serie]...
a) una formula para 'atrapar' el valor maximo en el rango 'B2:13' [p.e. en 'B15']...
=coincidir(max(b2:b13),b2:b13,0)
b) coloca las siguientes lineas
== en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
With ChartObjects(1).Chart.SeriesCollection(1)
.Interior.ColorIndex = xlColorIndexAutomatic
.Points(Range("b15")).Interior.ColorIndex = 3
End With
End Sub

no comentas si los 'varios graficos' estan incrustados en una sola hoja... o se trata de varias hojas de graficos... o ???
o sea... si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.