Метод Application.AddUndoUnit (Visio)

  • Статья

Добавляет объект, поддерживающий интерфейс IOleUndoUnit или IVBUndoUnit , в очередь отмены Microsoft Visio.

Синтаксис

expression. AddUndoUnit (pUndoUnit)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
PUndoUnit Обязательный [НЕИЗВЕСТНО] Ссылка на объект, поддерживающий интерфейс IOleUndoUnit или IVBUndoUnit .

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

Отсутствует

Примечания

Сведения о реализации интерфейса IOleUndoUnit в объекте см. в разделе Microsoft Platform SDK. Сведения о реализации интерфейса IVBUndoUnit см. в разделе Разработка решений Microsoft Visio.

Пример

В следующей процедуре показано, как использовать метод AddUndoUnit для добавления объекта в очередь отмены Visio. При добавлении фигуры в активный документ процедура проверяет, была ли она добавлена в результате действия отмены или повтора, а в противном случае добавляется блок отмены.

Эта процедура является членом класса clsParticipateInUndo, который определен в одном из двух связанных модулей класса в библиотеке примеров кода в пакете SDK для Visio и не предназначен для выполнения независимо. (Другой модуль класса определяет класс clsVBUndoUnits.) Дополнительные сведения об этих модулях класса см. в пакете SDK для Visio.

 
Private Sub mvsoDocument_ShapeAdded(ByVal vsoShape As IVShape) 
 
 Dim VBUndoUnit As clsVBUndoUnits 
 
 On Error GoTo mvsoDocument_ShapeAdded_Err 
 
 If Not (mvsoApplication Is Nothing) Then 
 
 If Not msvoApplication.IsUndoingOrRedoing Then 
 
 'Increment the count of undoable actions. 
 IncrementModuleVar 
 Debug.Print "Original Do: GetModuleVar = " & GetModuleVar 
 
 'Instantiate clsVBUndoUnit, a 
 'class that implements Visio.IVBUndoUnit. 
 Set VBUndoUnit = New clsVBUndoUnits 
 
 'Pass the current instance of the class 
 'of which this procedure is a member, 
 'clsParticipateInUndo, to the Undo unit. 
 VBUndoUnit.SetModelObject Me 
 
 'Add an Undo unit. 
 mvsoApplication.AddUndoUnit VBUndoUnit 
 
 End If 
 
 End If 
 
Exit Sub 
 
mvsoDocument_ShapeAdded_Err: 
 
 MsgBox Err.Description 
 
End Sub

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

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