Executando Salvar como Página da Web na linha de comando
O recurso Salvar como Página da Web é instalado automaticamente com cada produto do Visio. Ele é instalado como um complemento do Visio que tem o nome SaveAsWeb.
Para executar o recurso Salvar como Página da Web da interface de linha de comando, você chama o suplemento SaveAsWeb e usa as opções de linha de comando desejadas.
Você pode escolher uma das técnicas a seguir.
Criar uma fórmula que use a função RUNADDONWARGS na seção de eventos de uma forma
Você pode fazer isso na janela ShapeSheet sem escrever nenhum código. Por exemplo, você pode criar uma forma e inserir uma chamada para RUNADDONWARGS no evento de clique duplo da forma. Um usuário precisaria apenas clicar duas vezes na forma para criar uma página da Web a partir do desenho. Você também pode usar a Automação para definir fórmulas usando a propriedade Formula do objeto Cell do modelo de objeto Visio.
Para obter detalhes sobre a função RUNADDONWARGS, o objeto Cell ou a propriedade Formula, consulte a Referência do Desenvolvedor do Visio (Referência do Desenvolvedorde Pesquisa>de Ajuda>).
Para obter mais detalhes sobre como usar a função RUNADDONWARGS com Salvar como Página da Web, consulte Usando a função RUNADDONWARGS mais adiante neste tópico.
Escreva uma macro do Visual Basic no Visio (ou escreva código em um componente separado) que inicia o complemento SaveAsWeb usando o modelo de objeto de Automação do Visio
Use o método Run do objeto Addon e passe os parâmetros de linha de comando para especificar as propriedades da página da Web.
Usar essa técnica pode significar que você escreveria menos código do que se usasse o modelo de objeto Salvar como Página da Web para especificar parâmetros, mas usar o método Run requer familiaridade com parâmetros de linha de comando.
Para obter detalhes sobre o objeto Addon ou o método Run, consulte a Referência do Desenvolvedor do Visio (Referência do Desenvolvedorde Pesquisa>de Ajuda>).
Para obter mais detalhes sobre como usar o método Executar para chamar Salvar como Página da Web, confira Chamando o método Executar do suplemento SaveAsWeb mais adiante neste tópico.
Salvar como opções de linha de comando da Página da Web
O formato para parâmetros de linha de comando é o seguinte: /valor de opção=
Por exemplo, o código a seguir define o parâmetro de destino : /target=c:\temp\mypage.htm
A tabela a seguir lista as opções de linha de comando para a interface de linha de comando Salvar como Página da Web. A coluna Nome do método/propriedade lista o método ou propriedade correspondente no modelo de objeto. Para obter detalhes sobre uma determinada opção, consulte o método ou tópico de propriedade correspondente nesta referência.
| Opção | Padrão | Tipo do valor | Nome do método/propriedade |
|---|---|---|---|
| destino | Nenhuma. Você deve fornecer um valor de destino ou o Visio gerará um erro. | Texto | TargetPath |
| Pagetitle | O mesmo que o nome do arquivo de documento | Texto | PageTitle |
| Prop | TRUE | Boolean | PropControl |
| altformat | TRUE | Boolean | AltFormat |
| folder | TRUE | Boolean | StoreInFolder |
| tema | Nulo | Texto | ThemeName |
| Startpage | -1 (todas as páginas) | Número | StartPage |
| Endpage | -1 (todas as páginas) | Número | EndPage |
| openbrowser | TRUE | Boolean | OpenBrowser |
| screenres | 1024x768 | Texto/Número1 | DispScreenRes |
| priformat | XAML | Texto/Número1 | PriFormat |
| secformat | PNG | Texto/Número1 | SecFormat |
| Silencioso | FALSE | Boolean | SilentMode |
| Tranquila | FALSE | Boolean | QuietMode |
| Stylesheet | \ your_Visio_path\your_language_ID\Default.css | Texto | Stylesheet |
| Navbar | TRUE | Boolean | NavBar |
| search | TRUE | Boolean | Pesquisa |
| panzoom | TRUE | Boolean | PanAndZoom |
Para o tipo de valor de texto/número, o usuário pode especificar texto (como vml) para o tipo de saída ou um número (por exemplo, 1) que representa o índice desse tipo de saída. Cada tipo de saída terá seu próprio índice exclusivo.
Para screenres, os valores de texto e número são definidos pela enumeração VISWEB_DISP_RES .
Usando a função RUNADDONWARGS
O seguinte mostra uma maneira de usar a função RUNADDONWARGS para chamar o complemento SaveAsWeb .
=RUNADDONWARGS("SaveAsWeb","/target=c:\temp\mypage.htm /quiet /prop /startpage=1 /endpage=3 /altformat /priformat=vml /secformat=jpg /openbrowser")
Um cenário mencionado anteriormente neste tópico descreveu um usuário sendo capaz de simplesmente clicar duas vezes em uma forma em um desenho para produzir uma página da Web para esse desenho. Para demonstrar isso, você pode colocar a fórmula anterior na célula EventDblClick da seção Eventos na janela ShapeSheet de qualquer forma em sua página de desenho (para abrir a janela ShapeSheet, selecione uma forma na janela de desenho e, na guia Desenvolvedor , escolha Mostrar ShapeSheet). Depois que a fórmula for inserida na célula ShapeSheet, você poderá clicar duas vezes nessa forma na janela de desenho para iniciar o recurso Salvar como Página da Web.
Para obter mais informações sobre a função RUNADDONWARGS, a célula EventDblClick e a seção Eventos, consulte a Referência do Desenvolvedor do Visio (Referência do Desenvolvedorde Ajuda>para Pesquisar>).
Chamando o método Executar do complemento SaveAsWeb
O recurso Salvar como Página da Web é instalado como um complemento do Visio chamado SaveAsWeb. Para obter uma referência a esse complemento, use a coleção Addons do objeto Aplicativo visio.
O exemplo a seguir mostra como executar o complemento SaveAsWeb passando parâmetros de linha de comando para o método Run do objeto Addon .
Neste exemplo, o código que inicia o complemento está contido em um manipulador de eventos para o evento DocumentSaved . A propriedade QuietMode é definida como True para que as caixas de diálogo Salvar como Página da Web não sejam exibidas na interface do usuário.
Private Sub Document_DocumentSaved(ByVal Document As IVDocument)
Application.Addons("SaveAsWeb").Run "/quiet=True /target=C:\temp\test.htm"
End Sub
Para obter mais informações sobre a coleção Addons, os objetos Application e Addon e o evento DocumentSaved, consulte a Referência de Automação do Visio (Referência do Desenvolvedorde Pesquisa>de Ajuda>).
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.