Свойство UIObject.Clone (Visio)

Возвращает копию объекта UIObject . Только для чтения.

Синтаксис

выражение. Clone

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

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

UIObject

Пример

В этом примере показано, как использовать свойство Clone для создания копии объекта UIObject . В этом примере настраиваемая панель инструментов добавляется в коллекцию клонированных панелей инструментов. Эта панель инструментов отображается в пользовательском интерфейсе Microsoft Visio и доступна во время активности документа.

Чтобы восстановить встроенные панели инструментов в Visio после выполнения этого макроса, вызовите метод ThisDocument.ClearCustomToolbars .

 
Sub Clone_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbars As Visio.Toolbars 
 Dim vsoToolbar As Visio.Toolbar 
 
 'Check whether there are document custom toolbars. 
 If ThisDocument.CustomToolbars Is Nothing Then 
 
 'Check whether there are application custom toolbars. 
 If Visio.Application.CustomToolbars Is Nothing Then 
 
 'Use the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 Else 
 
 'Use the application custom toolbars. 
 Set vsoUIObject = Visio.Application.CustomToolbars.Clone 
 
 End If 
 
 
 Else 
 
 'Use the document custom toolbars. 
 Set vsoUIObject = ThisDocument.CustomToolbars 
 
 End If 
 
 'Get the Toolbars collection for the drawing window context. 
 Set vsoToolbars = vsoUIObject.ToolbarSets.ItemAtID(Visio.visUIObjSetDrawing).Toolbars 
 
 'Add a toolbar to the collection. 
 Set vsoToolbar = vsoToolbars.Add 
 
 'Set the title of the toolbar. 
 vsoToolbar.Caption = "My New Toolbar" 
 
 'Tell Visio to use the new UIObject object while 
 'this document is active. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
End Sub

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

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