Beispiel zur Top-Eigenschaft

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