In diesem Beispiel wird festgelegt, dass das erste, in Sheet1 eingebettete Diagramm zusammen mit dem Tabellenblatt gedruckt wird.
Worksheets("Sheet1").ChartObjects(1).PrintObject = True