Compartir a través de

Método Document.GetThemeNames (Visio)

  • Artículo

Devuelve una matriz específica de la configuración regional de los nombres de temas contenidos en el documento.

Sintaxis

expresión. GetThemeNames (eType, NameArray())

Expresión Expresión que devuelve un objeto Document .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
eType Obligatorio VisThemeTypes Tipo del tema, un valor enumerado de la enumeración VisThemeTypes. Vea la sección Comentarios para los valores posibles.
NameArray() Obligatorio String Parámetro de salida. Matriz de nombres de temas específicos de la configuración regional devueltos por el método.

Valor devuelto

Nothing

Comentarios

Para el parámetro eType, debe pasar un valor de la enumeración VisThemeTypes, que se declara en la biblioteca de tipos de Visio.

Constante Valor Descripción
visThemeTypeColor 1 Temas de colores.
visThemeTypeEffect 2 Temas de efectos.

Para el parámetro de salida NameArray(), se pasa una matriz vacía sin dimensiones de tipo String. Visio devuelve la matriz completada con los nombres específicos de la configuración regional de los temas contenidos en el documento.

Para obtener temas independientes de la configuración regional en el documento, use el método Document.GetThemeNamesU .

Nota:

A partir de Microsoft Visio 2000, puede usar nombres locales y universales para hacer referencia a formas, patrones, documentos, páginas, filas, complementos, celdas, hipervínculos, estilos, fuentes, accesos directos maestros, objetos de interfaz de usuario, temas y capas de Visio. Cuando un usuario asigna un nombre a una forma, por ejemplo, el usuario especifica un nombre local. A partir de Microsoft Office Visio 2003, la hoja de cálculo ShapeSheet solo muestra nombres universales en fórmulas y valores de celda. (En versiones anteriores de Visio, los nombres universales no eran visibles en la interfaz de usuario). Como desarrollador, puede usar nombres universales en un programa cuando no desee cambiar un nombre cada vez que se localiza una solución.

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo utilizar el método GetThemeNames para obtener una lista de nombres específicos de la configuración regional de los colores y efectos del tema del documento activo. Se imprime la lista en la ventana Immediate (Inmediato).

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.