Clase DataTable - tabla de datos (Word VBA)

La clase DataTable representa una tabla de datos de un gráfico. Para usar una variable de clase DataTable, primero debe ser instanciado, por ejemplo

Dim dte as DataTable
Set dte = ActiveDocument.Background.Chart.DataTable

Border

Devuelve el borde del objeto.

Dim cbrBorder As ChartBorder
Set cbrBorder = ActiveDocument.Background.Chart.DataTable.Border

Delete

Elimina el objeto.

ActiveDocument.Background.Chart.DataTable.Delete

Font

Devuelve la fuente del objeto especificado.

Dim cftFont As ChartFont
Set cftFont = ActiveDocument.Background.Chart.DataTable.Font

Format

Devuelve la línea, relleno y efecto de formato para el objeto.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.DataTable.Format

HasBorderHorizontal

True si la tabla de datos del gráfico tiene bordes horizontales en las celdas.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

HasBorderOutline

True si la tabla de datos del gráfico tiene bordes de contorno.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

HasBorderVertical

True si la tabla de datos del gráfico tiene bordes verticales en las celdas.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasDataTable = True 
 With .DataTable 
 .HasBorderHorizontal = False 
 .HasBorderVertical = False 
 .HasBorderOutline = True 
 End With 
 End With 
 End If 
End With

Select

Selecciona el objeto.

ActiveDocument.Background.Chart.DataTable.Select

ShowLegendKey

True si la clave de la leyenda del rótulo de datos está visible.

ActiveDocument.Background.Chart.DataTable.ShowLegendKey = True