Метод Document.GetThemeNamesU (Visio)

Статья
04/07/2023

Возвращает не зависящий от языкового стандарта массив имен тем, содержащихся в документе.

Синтаксис

expression. GetThemeNamesU (eType, NameArray())

Выражение Выражение, возвращающее объект Document .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Etype	Обязательный	VisThemeTypes	Тип темы, перечисленное значение из перечисления VisThemeTypes . Возможные значения см. в разделе Примечания.
NameArray()	Обязательный	String	Параметр Out. Массив имен тем, не зависящих от языкового стандарта, возвращаемых методом .

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

Отсутствует

Примечания

Для параметра eType передайте значение из перечисления VisThemeTypes , объявленное в библиотеке типов Visio.

Константа	Значение	Описание
visThemeTypeColor	1	Цветовые темы.
visThemeTypeEffect	2	Темы эффектов.

Для параметра NameArray() out передайте пустой массив без измерений типа String. Visio возвращает массив, заполненный именами тем, не зависящими от языкового стандарта, содержащимися в документе.

Чтобы получить имена тем, относящихся к языковому стандарту, используйте метод Document.GetThemeNames .

Примечание.

Начиная с Microsoft Visio 2000, вы можете использовать как локальные, так и универсальные имена для ссылки на фигуры Visio, образцы, документы, страницы, строки, надстройки, ячейки, гиперссылки, стили, шрифты, основные сочетания клавиш, объекты пользовательского интерфейса, темы и слои. Например, когда пользователь присваивает имя фигуре, пользователь указывает локальное имя. Начиная с Microsoft Office Visio 2003 электронная таблица shapesheet отображает только универсальные имена в формулах и значениях ячеек. (В предыдущих версиях Visio универсальные имена не были видны в пользовательском интерфейсе.) Как разработчик, вы можете использовать универсальные имена в программе, если вы не хотите изменять имя каждый раз, когда решение локализуется.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод GetThemeNamesU для получения списка цветов и эффектов темы, независимых от языкового стандарта, в активном документе. Он выводит список в окне Интерпретация.

Public Sub GetThemeNamesU_Example() 
 
    Dim astrNames() As String 
    Dim strThemeName As String 
    Dim intArrayCounter As Integer 
     
    ActiveDocument.GetThemeNamesU visThemeTypeColor, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
    Debug.Print "-------------------------------------------" 
     
    ActiveDocument.GetThemeNamesU visThemeTypeEffect, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
End Sub

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

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

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