Método Document.GetThemeNamesU (Visio)

Retorna uma matriz de nomes de temas independentes de localidade contidos no documento.

Sintaxe

expressão. GetThemeNamesU (eType, NameArray())

Expressão Uma expressão que retorna um objeto Document .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Etype	Obrigatório	VisThemeTypes	O tipo do tema, um valor enumerado da enumeração VisThemeTypes. Consulte comentários para os valores possíveis.
NameArray()	Obrigatório	String	Parâmetro de saída. Uma matriz de nomes de temas independentes de localidade retornados pelo método.

Valor de retorno

Nada

Comentários

Para o parâmetro eType, passe um valor da enumeração VisThemeTypes, declarado na biblioteca de tipos do Visio.

Constant	Valor	Descrição
visThemeTypeColor	1	Temas de cores.
visThemeTypeEffect	2	Temas de efeitos.

Para o parâmetro de saída NameArray(), passe uma matriz vazia e sem dimensões do tipo String. O Visio retornará a matriz preenchida com os nomes de temas independentes de localidade contidos no documento.

Para obter os nomes de temas específicos da localidade no documento, use o método Document.GetThemeNames .

Observação

A partir do Microsoft Visio 2000, você pode usar nomes locais e universais para se referir a formas, mestres, documentos, páginas, linhas, complementos, células, hiperlinks, estilos, fontes, atalhos de mestres, objetos da interface do usuário, temas e camadas do Visio. Quando um usuário nomeia uma forma, por exemplo, o usuário está especificando um nome local. Começando com o Microsoft Office Visio 2003, a planilha ShapeSheet exibe apenas nomes universais em fórmulas e valores de célula. (Em versões anteriores do Visio, os nomes universais não estavam visíveis na interface do usuário.) Como desenvolvedor, você pode usar nomes universais em um programa quando não quiser alterar um nome sempre que uma solução for localizada.

Exemplo

A macro a seguir do Visual Basic for Applications (VBA) mostra como usar o método GetThemeNamesU para obter a lista de nomes de cores e de efeitos de temas independentes de localidade no documento ativo. Ela imprime a lista na janela Immediate.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.