Executar Guardar como Página Web a partir da linha de comandos

A funcionalidade Guardar como Página Web é instalada automaticamente com cada produto do Visio. É instalado como um suplemento do Visio que tem o nome SaveAsWeb.

Para executar a funcionalidade Guardar como Página Web a partir da interface de linha de comandos, chame o suplemento SaveAsWeb e utilize as opções de linha de comandos pretendidas.

Pode escolher qualquer uma das seguintes técnicas.

Criar uma fórmula que utiliza a função RUNADDONWARGS na secção de eventos de uma forma

Pode fazê-lo na janela ShapeSheet sem escrever código. Por exemplo, pode criar uma forma e inserir uma chamada para RUNADDONWARGS no evento de duplo clique da forma. Um utilizador só teria de fazer duplo clique na forma para criar uma página Web a partir do desenho. Também pode utilizar a Automatização para definir fórmulas com a propriedade Fórmula do objeto Célula do modelo de objeto do Visio.

Para obter detalhes sobre a função RUNADDONWARGS, o objeto Célula ou a propriedade Fórmula, veja a Referência para Programadores do Visio (Referência do Programadorda Pesquisa> de Ajuda>).

Para obter mais detalhes sobre como utilizar a função RUNADDONWARGS com Guardar como Página Web, consulte Utilizar a função RUNADDONWARGS mais à frente neste tópico.

Escrever uma macro do Visual Basic no Visio (ou escrever código num componente separado) que inicia o suplemento SaveAsWeb com o modelo de objeto Automatização do Visio

Utilize o método Executar do objeto Addon e transmita os parâmetros da linha de comandos para especificar as propriedades da página Web.

Utilizar esta técnica pode significar que escreveria menos código do que se utilizasse o modelo de objeto Guardar como Página Web para especificar parâmetros, mas utilizar o método Executar requer familiaridade com os parâmetros da linha de comandos.

Para obter detalhes sobre o objeto Addon ou o método Executar, veja Referência para Programadores do Visio (Referência paraProgramadoresda Pesquisa> de Ajuda>).

Para obter mais detalhes sobre como utilizar o método Executar para chamar Guardar como Página Web, consulte Chamar o método Executar do suplemento SaveAsWeb mais adiante neste tópico.

Opções de linha de comandos Guardar como Página Web

O formato dos parâmetros da linha de comandos é o seguinte: /option=value

Por exemplo, o código seguinte define o parâmetro de destino : /target=c:\temp\mypage.htm

A tabela seguinte lista as opções da linha de comandos para a interface de linha de comandos Guardar como Página Web. A coluna Method/Property name lista o método ou propriedade correspondente no modelo de objeto. Para obter detalhes sobre uma determinada opção, veja o método ou tópico de propriedade correspondente nesta referência.

Para o tipo de valor de texto/número, o utilizador pode especificar texto (como vml) para o tipo de saída ou um número (por exemplo, 1) que representa o índice deste tipo de saída. Cada tipo de saída terá o seu próprio índice exclusivo.

Para os ecrãs, os valores de texto e número são definidos pela enumeração VISWEB_DISP_RES .

Utilizar a função RUNADDONWARGS

Segue-se uma forma de utilizar a função RUNADDONWARGS para chamar o suplemento 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 utilizador que pode simplesmente fazer duplo clique numa forma num desenho para produzir uma página Web para esse desenho. Para demonstrar isto, pode colocar a fórmula anterior na célula EventDblClick da secção Eventos na janela ShapeSheet de qualquer forma na página de desenho (para abrir a janela ShapeSheet, selecione uma forma na janela de desenho e, em seguida, no separador Programador , selecione Mostrar ShapeSheet). Depois de a fórmula ser introduzida na célula ShapeSheet, pode fazer duplo clique nessa forma na janela de desenho para iniciar a funcionalidade Guardar como Página Web.

Para obter mais informações sobre a função RUNADDONWARGS, a célula EventDblClick e a secção Eventos, veja a Referência para Programadores do Visio (Referência para Programadoresda Pesquisa> de Ajuda>).

Chamar o método Executar do suplemento SaveAsWeb

A funcionalidade Guardar como Página Web é instalada como um suplemento do Visio denominado SaveAsWeb. Para obter uma referência a este suplemento, utilize a coleção Addons do objeto Aplicação do Visio.

O exemplo seguinte mostra como executar o suplemento SaveAsWeb ao transmitir parâmetros da linha de comandos para o método Executar do objeto Addon .

Neste exemplo, o código que inicia o suplemento está contido num processador de eventos para o evento DocumentSaved . A propriedade QuietMode está definida como Verdadeiro para que as caixas de diálogo Guardar como Página Web não sejam apresentadas na interface de utilizador.

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 Aplicação e Addon e o evento DocumentSaved, veja Referência da Automatização do Visio (Referência para Programadoresda 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.