Chart.ApplyLayout (Word)
Aplica los diseños que se muestran en la cinta de opciones.
Cuando se usa un diseño en el tipo de gráfico actual, se aplica al tipo de gráfico un número comprendido entre 1 y 10.
ApplyLayout (Layout, ChartType)
Dim lngLayout As Long: lngLayout =
ActiveDocument.Background.Chart.ApplyLayout Layout:=lngLayout