In diesem Beispiel wird eine Datentabelle mit einem äußeren Rahmen dem eingebetteten Diagramm hinzugefügt.
With Worksheets(1).ChartObjects(1).Chart .HasDataTable = True .DataTable.HasBorderOutline = True End With