Som diagraming pendant til Microsoft Office Suite af produkter , Visio hjælper fagfolk sat sammen visualiseringer af oplysninger, såsom organisationer , processer og diagrammer . Indsættelse figurer i Visio VBA diagram er en forholdsvis let og ligetil procedure , at selv en novice Visio bruger kan udrette. Et diagram er ubrugelig uden de nødvendige former og visuelle fremstillinger , du har brug for, så det er et vigtigt skridt til at lære. Instruktioner
1

Start din Visio Visual Basic-editoren og åbner den fil, du ønsker at indsætte figurer på.
2

skrive følgende linjer kode til at kopiere kilde- figurer så du kan indsætte dem i Visio-dokument i næste trin : Hej

Me.Application.Documents.Add ("")

Dim copyPage som Visio.Page

Dim pastePage Da Visio.Page

Dim rektangel Som Visio.Shape = Nothing

Dim oval Som Visio.Shape = Nothing
3

Command Visual Basic at føje figurer til den nye side ved hjælp af følgende kodelinjer :

Dim visioPages As Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add ()

4

Kopier figurerne til Visio-diagram ved hjælp af Visual Basic ved at udføre følgende linjer kode :

Try

copyPage = visioPages ( 1)

rektangel = copyPage.DrawRectangle (1.1, 2.2 , 4.5, 6.7)

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

Fang ex Som Exception

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

End Prøv
5

Fortsæt med at bruge " Try" og " End Prøv " kommandoer , med de respektive parametre udfyldt mellem to for at indsætte yderligere figurer. Angiv navnene på de samme som " oval " eller " firkant " for at ændre hvilken slags form er indsat i dokumentet.