Свойство Application.Windows (Project)

Возвращает коллекцию Windows , представляющую открытые окна в приложении. Объект только для чтения.

Синтаксис

expression. Виндоус

выражение: переменная, представляющая объект Application.

Примечания

Свойство Windows дублирует свойство Windows2 , за исключением того, что оно возвращает коллекцию Windows , а не коллекцию Windows2 . Свойство Windows2 и объект коллекции Windows2 рекомендуется использовать для всех новых разработок как в VBA, так и для внешних приложений, разработанных с помощью платформа .NET Framework. Свойство Windows и коллекция Windows поддерживаются для обеспечения обратной совместимости с существующими приложениями.

Пример

Следующий пример каскадирует все открытые окна.

Sub CascadeWindows() 
 Dim I As Integer 
 
 ActiveWindow.WindowState = pjNormal ' Restore the window. 
 
 With Application.Windows 
 For I = 1 To .Count 
 .Item(I).Activate 
 .Item(I).Top = (I - 1) * 15 
 .Item(I).Left = (I - 1) * 15 
 Next I 
 End With 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.