Compartir a través de

Propiedad VisWebPageSettings.ThemeName

  • Artículo

Asigna un tema de página web a la página que está creando. Lectura y escritura.

Sintaxis

expresión. ThemeName

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

Valor devuelto

Cadena

Comentarios

Use temas proporcionados por Microsoft Visio o temas que cree usted mismo. Si desea crear su propio tema, haga lo siguiente:

  1. Cree un archivo HTM que contenga el término siguiente en una etiqueta HTML: ##VIS_SAW_FILE##. Visio reconoce los archivos HTM que contienen esta etiqueta como archivos de tema.

  2. Almacene el archivo en la carpeta siguiente: \ your_Visio_path\ your_language_ID\

A continuación, el archivo de tema aparecerá en la lista desplegable Host in Web page (Host in Web page) del cuadro de diálogo Save As Web Page (BackstageButton tab >Save AsSave as> type list >Web Page (*.htm;*.html)Publish>Advanced).>

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar la propiedad ThemeName para asignar el tema Básico (proporcionado por Visio) a la página web que está creando.

Antes de ejecutar esta macro, reemplace por path\filename.htm una ruta de acceso de destino válida en el equipo y el nombre de archivo que desea asignar a la página web. Además, reemplace your_Visio_path y your_language_ID por la ruta de acceso a Microsoft Visio en el equipo (por ejemplo, C:\Archivos de programa\Microsoft Office\Visio14\1033...).

Public Sub ThemeName_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .ThemeName = "your_Visio_path\your_language_ID\Basic.htm" 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
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.