Cómo insertar formas en Visio VBA

Como contrapartida a la diagramación Microsoft Office Suite de productos, Visio ayuda a los profesionales 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 Visio puede lograr. 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

Inicie el editor de Visual Basic Visio y abra el archivo que desea insertar formas en .
2

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

Me.Application.Documents.Add ("" )

copypage As Visio.Page

pastePage As Visio.Page

rectángulo atenuado como Visio.Shape = Nothing

ovalada As Visio.Shape = Nothing
3

comandos de Visual Basic añadir las formas de la nueva página mediante las siguientes líneas de código:

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

visioPages.Add ( )
Página 4

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

Prueba

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. Mensaje )

End Try
5

seguir utilizando la "Prueba " y " End Try " comandos , con los parámetros respectivos rellenado entre los dos con el fin de insertar formas adicionales . Especifique el nombre de la misma , tales como " ovalada " o " rectángulo " para cambiar el tipo de forma se inserta en el documento.