Свойство Page.OriginalPage (Visio)

Статья
04/07/2023

Возвращает объект Page , представляющий исходную страницу документа Microsoft Visio, которая была отмечена на отдельных наложениях разметки рецензентами документа. Только для чтения.

Синтаксис

выражение. OriginalPage

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

Возвращаемое значение

Page

Замечания

Если родительский объект Page не является наложением разметки, Функция OriginalPage возвращает ошибку. Чтобы определить, является ли страница наложением разметки, проверьте, является ли Page.Type = visTypeMarkup (3).

Когда пользователь нажимает Кнопку отслеживания разметки, Visio создает новую страницу типа visTypeMarkup. Исходная страница имеет тип visTypeForeground или visTypeBackground. Каждое наложение разметки связано с уникальной исходной страницей рисования.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) использует свойство OriginalPage, чтобы получить имя исходной страницы, помеченной на наложение разметки, и отобразить его в окне Интерпретация. Перед выполнением этого макроса убедитесь, что в активном окне отображается страница документа.

Public Sub OriginalPage_Example() 
 
 'Turn on Track Markup to make a markup overlay the active page. 
 Application.ActiveDocument.DocumentSheet.CellsSRC(visSectionObject, visRowDoc, visDocAddMarkup).FormulaU = True 
 
 'Display the name of the original page that currently is being marked up. 
 Debug.Print ActivePage.OriginalPage.Name 
 
End Sub

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

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

Поделиться через