Método Document.GetThemeNames (Visio)
Retorna uma matriz de nomes de temas específicos de localidade contidos no documento.
Sintaxe
expressão. GetThemeNames (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 específicos 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 específicos de localidade contidos no documento.
Para obter temas independentes de localidade no documento, use o método Document.GetThemeNamesU .
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 GetThemeNames para obter a lista de nomes de cores e de efeitos de temas específicos de localidade no documento ativo. Ela imprime a lista na janela Immediate.
Public Sub GetThemeNames_Example()
Dim astrNames() As String
Dim strThemeName As String
Dim intArrayCounter As Integer
ActiveDocument.GetThemeNames visThemeTypeColor, astrNames
For intArrayCounter = LBound(astrNames) To UBound(astrNames)
strThemeName = astrNames(intArrayCounter)
Debug.Print strThemeName
Next
Debug.Print "-------------------------------------------"
ActiveDocument.GetThemeNames 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.