Πώς να Τοποθετήστε σχήματα στο Visio VBA

Καθώς η diagraming αντιστάθμισμα της Microsoft Office Suite προϊόντων , Visio βοηθά τους επαγγελματίες μαζί απεικονίσεις των πληροφοριών, όπως οργανισμούς, τις διεργασίες και τα διαγράμματα. Εισαγωγή σχήματα σε διάγραμμα Visio VBA σας είναι μια σχετικά εύκολη και απλή διαδικασία , που ακόμη και ένας αρχάριος χρήστης Visio μπορεί να ολοκληρώσει. Ένα διάγραμμα είναι άχρηστο χωρίς τα απαραίτητα σχήματα και οπτικές αναπαραστάσεις που χρειάζεστε , έτσι ώστε να είναι ένα σημαντικό βήμα για να μάθει . Οδηγίες
Η 1

Εκκίνηση Visio Visual Basic συντάκτη σας και ανοίξτε το αρχείο που θέλετε να εισαγάγετε σχήματα σε . 2

Πληκτρολογήστε τις ακόλουθες γραμμές κώδικα για να αντιγράψετε τα σχήματα πηγή έτσι ώστε να μπορείτε να εισαγάγετε στο έγγραφο του Visio στο επόμενο βήμα :

Me.Application.Documents.Add ( "" )

Dim copyPage Όπως Visio.Page

Dim pastePage Όπως Visio.Page

Dim ορθογώνιο Όπως Visio.Shape = Τίποτα

Dim οβάλ Όπως Visio.Shape = Τίποτα
εικόνων 3

Εντολή Visual Basic για να προσθέσετε τα σχήματα στη νέα σελίδα χρησιμοποιώντας τις παρακάτω γραμμές κώδικα :

Dim visioPages Όπως Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add ( )
Φτηνές 4

Αντιγράψτε τα σχήματα στο διάγραμμα Visio χρήση της Visual Basic εκτελώντας τις παρακάτω γραμμές κώδικα :

Δοκιμάστε

copyPage = visioPages ( 1 )

ορθογώνιο = copyPage.DrawRectangle ( 1.1 , 2.2 , 4.5 , 6.7 )

οβάλ = copyPage.DrawOval ( 1 , 8.75 , 3.5 , 6.25 )

Catch ex Όπως Εξαίρεση

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

End Δοκιμάστε
5

Συνεχίστε να χρησιμοποιείτε το "Try " και " End Try " εντολές , με τις αντίστοιχες παραμέτρους συμπληρώνεται μεταξύ των δύο, προκειμένου να εισαγάγετε επιπλέον σχήματα . Καθορίστε τα ονόματα του ίδιου όπως " οβάλ " ή " ορθογώνιο " για να αλλάξετε το είδος του σχήματος εισάγεται στο έγγραφο .
Η
εικόνων