VBA: Formato de gráfico condicionado por sus valores.

Realizó un usuario una consulta curiosa, y tras algunas investigaciones por la red encontré una respuesta adecuada.
El lector quería realizar un gráfico de barras, condicionando el color de las barras al valor asociado, mediante un código de VBA:

...referente a la posibilidad de realizar un gráfico condicional utilizando VBA. Necesito los gáficos de barras en los que las barras sean de un color si su valor es mayor a un valor (2,4) y de otro color si su valor es menor a 2,4...

Partiremos de una Tabla de datos, y un gráfico ya construido; se trata entonces de que cada vez que cambiemos los valores en nuestra tabla de datos, el color de las barras cambie de un color (rojo) a otro (azul) según sea mayor o menor a 2,4.
El gráfico se ha llamado '1 Gráfico', además incorporaremos la programación adecuada para que el gráfico se actualice cada vez que la Tabla de datos se modifica, mediante la instrucción worksheet_change(ByVal target As Range) incluida en la 'Hoja1' desde la que trabajaremos (es muy importante editar nuestro código dentro de la 'Hoja1', no dentro de un Módulo del Editor de VBA !!!).
Nuestro código será entonces:

'ejecuta macro al modificar alguna celda en la Hoja1
Sub worksheet_change(ByVal target As Range)
'definimos las variables que emplearemos en el desarrollo de la macro
Dim Pto As Long
Dim Val As Variant
Dim nombrehoja, rangocelda As String
'asignamos a las variables nombrehoja y rangocelda un valor
nombrehoja = ActiveSheet.Name
rangocelda = ActiveCell.Address
'el siguiente código controla el valor de cada barra de nuestro gráfico
'y le asigna un color (rojo o azul)
 ActiveSheet.ChartObjects("1 Gráfico").Activate
   With ActiveChart.SeriesCollection(1)
    Val = .Values
        For Pto = 1 To UBound(Val)
            If Val(Pto) <= 2.4 Then
            .Points(Pto).Interior.Color = RGB(255, 0, 0)
            Else: .Points(Pto).Interior.Color = RGB(0, 0, 255)
            End If
        Next Pto
    End With

'termina la macro devolviéndonos a una celda activa de la Hoja de cálculo activa
Sheets(nombrehoja).Range(rangocelda).Select
End Sub

... y listo, cada vez que cambiemos un valor en la Hoja, y en concreto dentro de la Tabla de datos, se asignará el color rojo o azul si es mayor o menor que 2.4.