Iniciar Sess�o

Select the product you need help with

Visio2002: Como Usar a Automa��o de OLE com o Visio

ID do artigo: 309603 - Exibir os produtos aos quais esse artigo se aplica.

Sum�rio

Este artigo descreve e mostra como automatizar o Microsoft Visio 2002 a partir de um outro programa usando o Visual Basic ou o Visual Basic for Applications.

Voltar para o in�cio | Submeter coment�rios

A Microsoft fornece exemplos de programa��o apenas para ilustra��o, sem garantia expl�cita ou impl�cita, incluindo, mas sem limitar a, as garantias de comercializa��o e/ou adequa��o para uma finalidade em especial. Este artigo pressup�e que voc� conhece a linguagem de programa��o que est� sendo demonstrada e tamb�m as ferramentas usadas para criar e depurar procedimentos. Os profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento, mas eles n�o modificar�o esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender �s suas necessidades. Se a sua experi�ncia com programa��o for limitada, entre em contato com um Parceiro Certificado Microsoft ou com a linha paga de consultas da Microsoft no n�mero (800) 936-5200. Para obter informa��es adicionais sobre Parceiros Certificados da Microsoft, favor visitar o seguinte site da Web da Microsoft:

http://www.microsoft.com/partner/referral/

(http://www.microsoft.com/partner/referral/)

Para obter informa��es adicionais sobre as op��es de suporte dispon�veis e sobre como entrar em contato com a Microsoft, visite o seguinte site da Web:

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

O que � Automa��o?

Automa��o (tamb�m chamada de Automa��o de OLE), no Visual Basic, � o processo de controlar um programa a partir de um outro programa ou de uma ferramenta de desenvolvimento externa. Voc� pode automatizar qualquer programa que contenha um modelo de objeto do Visual Basic. Modelo de objeto � uma cole��o dos objetos do programa dispon�veis ou acess�veis ao Visual Basic.

Por exemplo, o modelo de objeto do Microsoft Visio cont�m objetos como:

Aplicativo/objeto global
Objeto de documento
Objeto de p�gina
Objeto mestre
Objeto de sele��o
Objeto de forma
Objeto de janela

Cada um desses objetos possui um conjunto �nico de m�todos e propriedades necess�rios � sua manipula��o no Visual Basic. Por exemplo, um objeto de forma pode representar qualquer coisa em uma p�gina de desenho do Visio que pode ser selecionada usando-se o ponteiro ? uma forma, um grupo, uma guia, um controle, ou um objeto de um outro aplicativo vinculado, inserido ou importado para um desenho do Visio.

Iniciando

Os exemplos de c�digo deste artigo mostram como controlar o Microsoft Visio 2002 a partir do Microsoft Access 2002, do Microsoft Excel 2002, do Microsoft PowerPoint 2002, do Microsoft Word 2002, do Microsoft Visual Basic 6.0, ou de um programa que tenha uma ferramenta de desenvolvimento do Visual Basic.

H� quatro passos principais para automatizar o Visio 2002:

Adicione uma refer�ncia � Biblioteca de tipos do Microsoft Visio 2002.
Declare uma vari�vel como um tipo de objeto do Visio (normalmente, Visio.Application ou Visio.Documents).
Atribua os m�todos GetObject ou CreateObject � vari�vel de objeto declarada por voc� no passo 2.
Use as propriedades, m�todos e objetos filhos do Visio para automatizar o programa.

Passo 1: Adicionar uma Refer�ncia � Biblioteca de Tipos do Visio

Para adicionar uma refer�ncia � Biblioteca de tipos do Microsoft Visio 2002 usando o Access 2002, o PowerPoint 2002, o Excel 2002, ou o Word 2002 siga estes passos:

No Access, no PowerPoint, no Excel ou no Word, aponte para Macros no menu Ferramentas, e clique em Editor do Visual Basic.
No menu Ferramentas, clique em Refer�ncias.

NOTA: Para adicionar a refer�ncia usando o Microsoft Visual Basic 6.0, clique em Refer�ncias no menu Projeto.
Na lista de Refer�ncias dispon�veis, marque a caixa de sele��o Microsoft Visio 2002 Type Library.

Adicionar a refer�ncia Microsoft Visio 2002 Type Library permite que o seu programa acesse a Ajuda On-line do Microsoft Visio e o modelo de objeto do Visio. Como as refer�ncias s�o salvas em cada projeto, voc� precisar� adicionar a refer�ncia da biblioteca de tipos do Visio para cada projeto do Visual Basic ou do Visual Basic for Applications com o qual voc� deseja automatizar o Visio.

Passo 2: Declarar a Vari�vel de Objeto

Para declarar uma vari�vel de objeto do Visio, defina uma vari�vel como um determinado tipo de objeto do Visio como, por exemplo, Visio.Application, Visio.Documents ou Visio.Page.

Declarar o tipo de objeto explicitamente � chamado de vincula��o anterior porque o aplicativo do controlador conecta ou vincula o objeto ao Visio durante a compila��o, e n�o durante a execu��o. Isso lhe d� acesso �s listas autom�ticas do Visio e � Ajuda Contextual, al�m de permitir que o c�digo seja executado de forma mais eficiente.

Para obter informa��es adicionais sobre a vincula��o de objetos, clique no n�mero abaixo para visualizar o artigo na Base de Dados de Conhecimento da Microsoft:

138138

(http://support.microsoft.com/kb/138138/EN-US/ )

INFO: Late, ID, Early Binding Types Possible in VB for Apps

O seguinte argumento de Visual Basic de exemplo declara a vari�vel AppVisio como um objeto do tipo Visio.Application:

   Dim AppVisio as Visio.Application

Passo 3: Definir a Vari�vel

H� dois m�todos do Visual Basic que podem ser usados para ativar o Visio: CreateObject e GetObject. A principal diferen�a � que o m�todo CreateObject cria uma nova inst�ncia do Visio, e o m�todo GetObject usa uma inst�ncia j� em execu��o do Visio. Voc� tamb�m pode usar o GetObject para definir a sua vari�vel de objeto para um determinado documento do Visio.

O seguinte argumento de exemplo define a vari�vel AppVisio para o aplicativo Visio usando a fun��o CreateObject:

   Dim AppVisio as Visio.Application

   Set AppVisio = CreateObject("Visio.Application")

Em alguns casos, talvez voc� queira usar uma inst�ncia j� existente do Visio, caso ele ainda n�o esteja em execu��o, mas criar uma nova inst�ncia no caso dele n�o estar sendo executado. Para fazer isso, crie um manipulador de erros que use o m�todo CreateObject no caso do m�todo GetObject falhar, como mostra o c�digo de exemplo a seguir:

   Dim AppVisio As Visio.Application

   On Error Resume Next

   Set AppVisio = GetObject(, "visio.application")

   If AppVisio Is Nothing Then
      Set AppVisio = CreateObject("visio.application")
   End If

NOTA: Voc� tamb�m pode usar a fun��o CreateObject para criar uma inst�ncia invis�vel do Visio. Por exemplo:

Set AppVisio = CreateObject("Visio.InvisibleApp")

Assim, voc� pode usar a propriedade Visible do objeto Application para controlar a visibilidade da inst�ncia.

Voc� pode usar o objeto InvisibleApp apenas com a fun��o CreateObject. As tentativas de us�-lo com a fun��o GetObject n�o dar�o certo. O objeto InvisibleApp n�o est� dispon�vel em vers�es do Visio anteriores � vers�o Microsoft Visio 2000.

Passo 4: Usar os Objetos, M�todos e Propriedades do Visio

Depois de completar os passos de 1 a 3, voc� pode usar a vari�vel de objeto do Visio para automatiz�-lo.

A seguinte macro de exemplo usa a automatiza��o para iniciar o Visio, criar um novo desenho (documento) com base no modelo de diagrama, fazer um ret�ngulo, adicionar um texto, salvar o desenho e fechar o Visio.

Sub AutoVisio()

   
   Dim AppVisio As Visio.Application  ' Declare an Instance of Visio.
   Dim docsObj As Visio.Documents     ' Documents collection of instance.
   Dim DocObj As Visio.Document       ' Document to work in.
   Dim stnObj As Visio.Document       ' Stencil that contains master.
   Dim mastObj As Visio.Master        ' Master to drop.
   Dim pagsObj As Visio.Pages         ' Pages collection of document.
   Dim pagObj As Visio.Page           ' Page to work in.
   Dim shpObj As Visio.Shape          ' Instance of master on page.

   ' Create an instance of Visio and create a document based on the
   ' Basic Diagram template. It doesn't matter if an instance of
   ' Visio is already running, CreateObject will run a new one.
   Set AppVisio = CreateObject("visio.application")

   Set docsObj = AppVisio.Documents

   ' Create a document based on the Basic Diagram template that
   ' automatically opens the Basic Shapes stencil.
   Set DocObj = docsObj.Add("Basic Diagram.vst")

   Set pagsObj = AppVisio.ActiveDocument.Pages

   ' A new document always has at least one page, whose index in the
   ' Pages collection is 1.
   Set pagObj = pagsObj.Item(1)

   Set stnObj = AppVisio.Documents("Basic Shapes.vss")
   Set mastObj = stnObj.Masters("Rectangle")

   ' Drop the rectangle in the approximate middle of the page.
   ' Coordinates passed with the Drop method are always inches.
   Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)

   ' Set the text of the rectangle.
   shpObj.Text = "This is some text."

   ' Save the drawing and quit Visio. The message pauses the program
   ' so you can see the Visio drawing before the instance closes.
   DocObj.SaveAs "MyDrawing.vsd"
   MsgBox "Drawing finished!", , "AutoVisio (OLE) Example"

   ' Quit Visio.
   AppVisio.Quit

   ' Clear the variable from memory.
   Set AppVisio = Nothing

End Sub

Voltar para o in�cio | Submeter coment�rios

Refer�ncias

Site do Microsoft Visio Developer na Web

Para obter informa��es adicionais sobre como automatizar o Visio, acesse o seguinte site da Microsoft na Web:

MSDN Online Visio Development Center

(http://msdn.microsoft.com/visio/)

NewsGroups

O seguinte grupo de not�cias n�o-hier�rquicos est� dispon�vel para lhe ajudar a interagir com outros usu�rios do Visual Basic for Applications:

microsoft.public.vb.ole.automation
microsoft.public.visio.developer.vba

Base de Dados de Conhecimento

Para obter informa��es adicionais sobre como usar o c�digo de exemplo deste artigo, clique no n�mero abaixo para visualizar o artigo na Base de Dados de Conhecimento da Microsoft:

297304

(http://support.microsoft.com/kb/297304/EN-US/ )

Visio2002: How to Run Sample Code from Knowledge Base Articles

Assistente do Office

Para obter mais informa��es sobre como usar o CreateObject, no Editor do Visual Basic, clique na Ajuda do Microsoft Visual Basic no menu Ajuda, digite fun��o createobject no Assistente do Office ou o Assistente de resposta, e clique em Pesquisar para visualizar o t�pico.

Para obter mais informa��es sobre como usar o GetObject, no Editor do Visual Basic, clique na Ajuda do Microsoft Visual Basic no menu Ajuda, digite fun��o getobject no Assistente do Office ou o Assistente de resposta, e clique em Pesquisar para visualizar o t�pico.

Voltar para o in�cio | Submeter coment�rios