Метод Documents.Add (Visio)

  • Статья

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

Синтаксис

expression. Add (FileName)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Обязательный String Тип или имя файла добавляемого документа; Если не включить путь, Visio выполняет поиск в папке или папках, указанных в свойстве TemplatePaths объекта приложения , и во всех опубликованных шаблонах , включая опубликованные сторонние шаблоны.

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

Документ

Замечания

Чтобы создать новый документ без шаблона, передайте строку нулевой длины ("") в метод Add .

Чтобы создать новый документ на основе другого файла, например шаблона, передайте имя исходного файла в метод Add . Visio открывает наборы элементов, которые являются частью рабочей области шаблона, и копирует стили и другие параметры, связанные с шаблоном, в новый документ. Если имя файла шаблона недопустимо, документ не возвращается и возникает ошибка.

Чтобы создать набор элементов без набора элементов, передайте ("vss").

Примечание.

Передача имени файла в качестве аргумента методу Add эквивалентна открытию файла, например шаблона, при котором создается новый пустой документ, включающий содержимое, скопированное из исходного файла.

Пример

В следующем макросе показано, как добавить объекты Document , такие как шаблоны, наборы элементов и рисунки, в коллекцию Documents .

Перед выполнением этого макроса замените Myfile.vsd допустимым VSD-файлом.

Public Sub AddDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Add a Document object based on a drawing (creates a copy of the drawing). 
 Set vsoDocument = Documents.Add("Myfile.vsd ") 
 
 'Add a Document object based on a stencil (creates a copy of the stencil). 
 Set vsoDocument = Documents.Add("Basic Shapes.vss") 
 
 'Add a Document object based on no template. 
 Set vsoDocument = Documents.Add("") 
 
End Sub

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

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