Compartilhar via

Propriedade VisWebPageSettings.Stylesheet

  • Artigo

Especifica um CSS (folha de estilos em cascata) fornecido pelo Microsoft Visio ou um que você criou, que é aplicado à página da Web. Leitura/gravação.

Sintaxe

expressão. Stylesheet

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

Valor de retorno

String

Comentários

Uma planilha de estilos pode ser fornecida pelo Visio ou uma que você mesmo cria. Se você armazenar uma planilha de estilos que você criar na pasta a seguir, ela será exibida na lista suspensa Folha de estilos na guia Avançado da caixa de diálogo Salvar Como Página da Web (guia >BackstageButtonSalvar como>Salvar como lista de tipos>Web Page (*.htm;*.html)>Publicar>Avançado):

\ \ your_Visio_path your_language_ID\

O Visio identifica planilhas de estilo pesquisando na pasta nomeada para sua ID de idioma (por exemplo, 1033) para arquivos CSS.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar a propriedade Stylesheet para atribuir a folha de estilos Steel (fornecida 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 as planilhas de estilos do Visio em seu computador, por exemplo:

C:\Arquivos do Programa\Microsoft Office\Visio14\1033...

Public Sub Stylesheet_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .Stylesheet = "your_Visio_path\your_language_ID\Steel.css" 
 .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.