Compartilhar via

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 devolve um objeto Documento .

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 dos temas específicos da região no documento, utilize 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. Por exemplo, quando um utilizador dá um nome a uma forma, o utilizador está a especificar um nome local. A partir do Microsoft Office Visio 2003, a folha de cálculo ShapeSheet apresenta apenas nomes universais em fórmulas e valores de células. (Em versões anteriores do Visio, os nomes universais não eram visíveis na interface de utilizador.) Enquanto programador, pode utilizar nomes universais num 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.

  • Last updated on