Метод Layers.Add (Visio)

Добавляет новый объект Layer в коллекцию Layers .

Синтаксис

выражение. Добавить (LayerName)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
LayerName	Обязательный	String	Имя нового слоя.

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

Уровень

Пример

В следующем макросе показано, как добавить объект Layer в коллекцию Layers .

Public Sub AddLayer_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 'Add a document based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Get the Pages collection and add a page to the collection. 
 Set vsoPages = vsoDocument.Pages 
 Set vsoPage = vsoPages.Add 
 
 'Get the Layers collection and add a layer named "MyLayer" 
 'to the collection. 
 Set vsoLayers = vsoPage.Layers 
 Set vsoLayer = vsoLayers.Add("MyLayer") 
 
End Sub

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

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