In diesem Beispiel wird die Breite des eingebetteten Diagramms festgelegt.
Worksheets("Sheet1").ChartObjects(1).Width = 360
In diesem Beispiel wird das aktive Fenster auf die maximal mögliche Größe erweitert (vorausgesetzt, das Fenster ist noch nicht maximiert).
With ActiveWindow .WindowState = xlNormal .Top = 1 .Left = 1 .Height = Application.UsableHeight .Width = Application.UsableWidth End With