Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Especifica o formato de saída secundário para a página da Web. Leitura/gravação.
Sintaxe
mais simples. SecFormat
expressão Uma expressão que retorna um objeto VisWebPageSettings .
Valor de retorno
String
Comentários
O formato de saída secundário será usado se o navegador não der suporte ao formato de saída principal. Por exemplo, se o formato principal for XAML e o plug-in necessário do navegador Silverlight não estiver instalado, a saída da página da Web usará o formato secundário.
O formato de saída primário é especificado pela propriedade PriFormat . Para obter informações sobre quais navegadores são compatíveis com os formatos selecionados, consulte a propriedade AltFormat .
Os valores possíveis para a propriedade SecFormat são os seguintes:
- PNG (Portable Network Graphics), o padrão
- JPG (JPEG File Interchange Format)
- GIF (Graphics Interchange Format)
Esse valor corresponde ao valor selecionado na lista abaixo da caixa marcar Fornecer formato alternativo para navegadores mais antigos (se estiver selecionada) na guia Avançado da caixa de diálogo Salvar como Página da Web (guia BackstageButton Salvar >como>Lista de tipos>Página da Web (*.htm;*.html)>Publicar>Avançado).
Exemplo
A macro a seguir mostra como usar a propriedade SecFormat para definir o valor do formato secundário como JPG para navegadores que não dão suporte ao formato primário do XAML (o padrão).
Antes de executar essa macro, substitua path\filename.htm por um caminho de destino válido em seu computador e o nome de arquivo que você deseja atribuir à sua página da Web.
Public Sub SecFormat_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsowebSettings As VisWebPageSettings
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
With vsoWebSettings
.AltFormat = True
.SecFormat = "JPG"
.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.