This example aligns the top of the embedded chart with the top of row two.
With Worksheets("Sheet1")
.ChartObjects(1).Top = .Rows(2).Top
End With
This example expands the active window to the maximum size available (assuming that the window isn’t already maximized).
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With