Compartilhar via

Propriedade VisWebPageSettings.ThemeName

  • Artigo

Atribui um tema de página da Web à página que você está criando. Leitura/gravação.

Sintaxe

expressão. Themename

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

Valor de retorno

String

Comentários

Use temas fornecidos pelo Microsoft Visio ou temas que você mesmo cria. Se você quiser criar seu próprio tema, faça o seguinte:

  1. Crie um arquivo HTM que contenha o seguinte termo em uma marca HTML: ##VIS_SAW_FILE##. O Visio reconhece arquivos HTM que contêm essa marca como arquivos de tema.

  2. Armazene o arquivo na seguinte pasta: \ your_Visio_path\ your_language_ID\

Em seguida, o arquivo tema será exibido na lista suspensa Host na Página Da Web na caixa de diálogo Salvar Como Página da Web (guia >BackstageButtonSalvar como>Salvar como página Da Web da lista > de tipos (*.htm;*.html)>Publicar>Avançado).

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar a propriedade ThemeName para atribuir o tema Básico (fornecido pelo Visio) à página da Web que você está criando.

Antes de executar essa macro, substitua por path\filename.htm um caminho de destino válido no computador e pelo nome do arquivo que você deseja atribuir à sua página da Web. Além disso, substitua your_Visio_path e your_language_ID pelo caminho para o Microsoft Visio em seu computador (por exemplo, C:\Arquivos de Programas\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

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.