VBA - chart.export uden overflødig "luft".

Hej,

et "lille" problem med export af charts.
Jeg har 2 worksheets, 1 med data og 1 med grafik.
Ønsket er at få grafikken eksporteret som fil, png.

Nedenstående kode virker fint, bortset fra et kosmetisk problem, mit diagram står øverst i venstre hjørne og der er masser af luft forneden og til højre.
Lidt sjusket, især når filen skal vises i et word-dokument :-)

Jeg har ikke noget problem med at bruge clipboard + enhanced metafile til at få grafikken vist i Word, en løsning som desværre giver mulighed for mere "pilleri" end godt er.

Så, en .png uden overflødig luft vil være meget velkommen :-)


Sub exp_call4ideas()
  Dim xChart As Chart

  Sheets("model").Shapes.SelectAll
  Selection.ShapeRange.Group.Select
  Selection.Copy
  Selection.ShapeRange.Ungroup.Select

  Set xChart = Charts.Add
  xChart.Paste
  xChart.Export "C:\Temp\Model.PNG", "PNG", False
  xChart.Delete
  Set xChart = Nothing
End Sub

(Hvis 60p er for fedtet, så sig til :-) )