Πώς να Περιστροφή InlineShape σε VB6

Κατά την ανάπτυξη μια εφαρμογή ή ένα μακροεντολών του Microsoft Office με χρήση της Visual Basic 6 , μπορεί να θέλετε να εφαρμόσετε ένα συγκεκριμένο περιστροφής InlineShapes . InlineShapes είναι αντικείμενα , όπως εικόνες ή στοιχεία ελέγχου Active X , που είναι ενσωματωμένα σε ένα έγγραφο κειμένου . Μπορείτε να περιστρέψετε InlineShapes με την επεξεργασία του πηγαίου κώδικα της εφαρμογής σας και δημιουργώντας μια νέα διαδικασία . Οδηγίες
Η

1 Ανοίξτε τον πηγαίο κώδικα της Visual Basic την αίτησή σας είτε σε ένα πρόγραμμα επεξεργασίας κειμένου όπως το Σημειωματάριο των Windows ή ένα ειδικό εργαλείο ανάπτυξης . 2

να αναγνωρίσει μια νέα διαδικασία υπο το όνομα " RotateInlineShapeSub ( ) " εισάγοντας την ακόλουθη δήλωση στον πηγαίο κώδικα της εφαρμογής σας .

Sub RotateInlineShapeSub ( )
εικόνων 3

Ορίστε τις μεταβλητές που απαιτούνται από τη διαδικασία υπο με την επικόλληση το παρακάτω απόσπασμα κώδικα μετά την ανακοίνωση υπο δήλωση :

Dim inline Όπως InlineShapeDim tempshape Όπως ShapeDim ActDoc Όπως DocumentSet ActDoc = ActiveDocument
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω απόσπασμα κώδικα μετά την δήλωση μεταβλητών για να επιτρέψει το πρόγραμμά σας για να μετατρέψετε InlineShapes σε κανονικά σχήματα :

For Each inline σε ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic δεν μπορεί να περιστρέφεται άμεσα InlineShapes , γεγονός που εξηγεί γιατί πρέπει πρώτα να τις μετατρέψει σε σχήματα .
5

Εισάγετε τον παρακάτω απόσπασμα κώδικα αμέσως μετά την προηγούμενη να εφαρμόσει εκ περιτροπής με τα σχήματα . Εάν είναι απαραίτητο , αντικαταστήστε το " 180 " από μια διαφορετική οπτική γωνία περιστροφής .

For Each tempshape Σε ActDoc.Shapestempshape.IncrementRotation 180Next
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω απόσπασμα κώδικα μετά την προηγούμενη κανείς να μετατρέψετε τα σχήματα πίσω στο InlineShapes πάλι .

For Each tempshape σε DocThis.Shapestempshape.ConvertToInlineShapeNext
Η

7 Εισάγεται το παρακάτω απόσπασμα κώδικα , αν θέλετε την αίτησή σας για να εμφανιστεί ένα μήνυμα επιβεβαίωσης . Αντικατάσταση " InlineShape περιστρέφεται " με ένα διαφορετικό μήνυμα επιβεβαίωσης , αν θέλετε

MsgBox " InlineShape περιστρέφεται "
8

Κλείστε τη διαδικασία της Visual Basic , πληκτρολογώντας την ακόλουθη δήλωση . :

End Sub
Η 9

Εκτελέστε τη διαδικασία υπο εισάγοντας την ακόλουθη δήλωση κλήση στο σημείο όπου θέλετε το πρόγραμμά σας για να εφαρμόσει την περιστροφή :

Καλέστε RotateInlineShapeSub ( )
Η 10

Αποθηκεύστε το αρχείο σας .
Η
εικόνων