Diagramme als Grafik speichern

ich möchte mit dem Code

For x = 1 To tab1.Sheets.Count - 1
tab1.Sheets(x + 1).Copy after:=tab2.Sheets(x)
tab2.Sheets(x).UsedRange.Value = tab2.Sheets(x).UsedRange.Value
Next x

eine Kopie eines WB anlegen ohne dessen Formeln und dessen Code. Nun habe ich festgestellt, daß ein Diagramm immer noch Bezüge zur Herkunfts-WB aufweist. Gibt es eine Möglichkeit das Diagramm via VBA als Grafik zu speichern?

Danke

Matthias