This example causes the embedded chart data table to be displayed with an outline border and no cell borders.
With Worksheets(1).ChartObjects(1).Chart
.HasDataTable = True
With .DataTable
.HasBorderHorizontal = False
.HasBorderVertical = False
.HasBorderOutline = True
End With
End With