In diesem Beispiel wird der obere Rand des eingebetteten Diagramms am oberen Rand von Zeile 2 ausgerichtet.
With Worksheets("Sheet1") .ChartObjects(1).Top = .Rows(2).Top End With
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