Sub WindowsZoom() Dim w As Window For Each w In Windows w.ActiveView.Zoom = 200 Next wEnd Sub
Sub WindowsTile() Windows.Arrange cdrTileHorizontallyEnd Sub