Grabación de macro genera error

[Caliche]

Estaba tratando de grabar una macro (Herramientas, Macro, Crear nueva macro) para dale formato a la Tabla de Datos de una gráfica. El código generado fé el siguiente:

ActiveSheet.ChartObjects("Gráfico 3").Activate
"Tabla de datos".Comment.Shape.Select ' ACA HAY ERROR
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial Narrow"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

El egenrador de código graba una instrucción con error (la que aparece en negrilla.

Cual podrá ser la causa de dicho error?

Cuales son las instrucciones VBA necesarias para darle formato (fuente, estilo, tamaño) a la Tabla de datos?

Muchas gracias por su ayuda.

 

[Greg Truby]

Caliche,

No sé porque será que Excel le dio esta código erróneo, pero lo de abajo sí me funcionó. Creo que solo falta cambiar el índice de «1» a «"Gráfico 3"».

With ActiveSheet.ChartObjects(1).Chart.DataTable.Font
        .Name = "Arial Narrow"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With

Espero que le ayude.
Saludos,