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