This example sets the width of the embedded chart.
Worksheets("Sheet1").ChartObjects(1).Width = 360
This example expands the active window to the maximum size available (assuming that the window isn’t maximized).
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With