Cómo insertar formas en Visio VBA

Como contrapartida a la diagramación Microsoft Office Suite de productos, Visio ayuda a los profesionales ponen juntos visualizaciones de información, tales como las organizaciones, procesos y diagramas. Inserción de formas en el diagrama de Visio VBA es un procedimiento relativamente fácil y sencillo que incluso un usuario novato puede lograr Visio. Un diagrama es inútil sin las formas necesarias y representaciones visuales que necesita, por lo que es un paso importante para aprender.

Instrucciones

1 Lanzar su editor de Visio Visual Basic y abra el archivo que desea insertar en formas.

2 Escriba las siguientes líneas de código para copiar las formas de código para que pueda insertarlos en el documento de Visio en el siguiente paso:

Me.Application.Documents.Add ( "")

Dim Copypage Como Visio.Page

Dim pastePage Como Visio.Page

rectángulo tenue Como Visio.Shape = nada

Como ovalada Dim Visio.Shape = Nada

3 Del sistema de Visual Basic para agregar las formas a la nueva página mediante el uso de las siguientes líneas de código:

visioPages dévil como Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add ()

4 Copiar las formas en el diagrama de Visio utilizando Visual Basic mediante la ejecución de las siguientes líneas de código:

Tratar

copyPage = visioPages(1)

rectángulo = copyPage.DrawRectangle (1.1, 2.2, 4.5, 6.7)

ovalada = copyPage.DrawOval (1, 8,75, 3,5, 6,25)

Catch ex As Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

Try End

5 Seguir utilizando los comandos de "Prueba" y "End Try", con los parámetros respectivos rellenos entre los dos con el fin de insertar formas adicionales. Especificar los nombres de la misma, tales como "ovalada" o "rectángulo" para cambiar qué tipo de forma se inserta en el documento.