Sub Maximale_Chartgroesse()
   With ActiveChart.PlotArea
      .Left = 0
      .Top = 0
      .Width = ActiveChart.ChartArea.Width - 1
      .Height = ActiveChart.ChartArea.Height - 1
   End With
End Sub