Свойство Document.AlternateNames (Visio)

Статья
04/07/2023

Возвращает или задает альтернативные имена для документа. Для чтения и записи.

Синтаксис

expression. AlternateNames

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

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

Строка

Замечания

Приложение сохраняет имена документов в следующих ситуациях:

Шаблоны хранят имена наборов элементов. Например, шаблон Блок-схема "Базовый " хранит имена наборов элементов Basic Flowchart Shapes.vss и Backgrounds.vss . Эти наборы элементов открываются с помощью шаблона "Базовая блок-схема ".
В главных сочетаниях клавиш хранятся имена наборов элементов. Например, ярлык для фигуры Данные хранит имя набора элементов, в котором хранится фигура данных — Basic Flowchart Shapes.vss.

Когда приложение открывает документ или обращается к коллекции объекта Document , оно использует имя документа. Если Microsoft Visio не удается найти имя документа, он ищет альтернативные имена для наборов элементов, которые находятся в правильном пути. (Чтобы добавить путь, перейдите на вкладку Файл , щелкните Параметры, Дополнительно, а затем в разделе Общие выберите пункт Расположение файлов.) Например, предположим, что вы создали набор элементов с именем "New Shapes 2008.vss". В следующем году вы пересмотрели набор элементов и переименовали его в New Shapes 2009.vss. Все шаблоны, открывающие Новые фигуры 2008.vss , теперь должны открывать новые фигуры 2009.vss. Для этого задайте для свойства AlternateNamesnew Shapes 2009.vss значение New Shapes 2008.vss. В следующем коде Microsoft Visual Basic показано, как это сделать.

Visio.Documents("New Shapes 2009.vss").AlternateNames = "New Shapes 2008.vss"

Свойство AlternateNames будет пустым , пока вы не зададите его с помощью службы автоматизации. Каждое из альтернативных имен в строке должно содержать имя файла, но не содержать сведения о папке. Вы также можете включить комментарии в угловые скобки (<>), так как приложение игнорирует все, что содержится в угловых скобках. Например, можно использовать следующий код для задания свойства AlternateNames .

Visio.Documents("HRShapes.vss").AlternateNames = "Human Resources Shapes.vss; <old name> HRDept Shapes.vss"

Пример

В следующем макросе показано, как получить и задать свойство AlternateNames текущего документа. Он демонстрирует, что свойство пусто до тех пор, пока вы не зададите его.

 
Public Sub AlternateNames_Example() 
  
    'Get the AlternateNames property of the document.  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames 
 
    'Set the AlternateNames property of the document.  
    ThisDocument.AlternateNames = "Test Shapes.vss"  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames  
 
End Sub

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

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

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