Chart.Walls (Word)

Devuelve las paredes del gráfico 3D.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Walls.Border. _ 
 ColorIndex = 3 
 End If 
End With