1 Κάντε κλικ στο " Αρχείο" και επιλέξτε " Open ", στη συνέχεια, μεταβείτε στη θέση του εγγράφου που περιέχει τα σχήματα που θέλετε να μετατρέψετε . Κάντε διπλό κλικ για να ανοίξετε το αρχείο . 2
Κρατήστε πατημένο το πλήκτρο "Alt " και πατήστε το πλήκτρο " F11 " για να ανοίξετε το παράθυρο VBE .
Εικόνων 3
Κάντε κλικ στο " Εισαγωγή" στο παράθυρο VBE και επιλέξτε " Ενότητα ". Αυτό θα ανοίξει ένα νέο παράθυρο για την ενότητα
Η 4
Αντιγράψτε τον παρακάτω κώδικα τονίζοντας ότι , κάνοντας δεξί κλικ και επιλέγοντας "Αντιγραφή " : .
Sub ConvertToInlineShape ( )
Με επιλογή
'\\ \\ Αν επιλέξει ένα σχήμα στη συνέχεια να μετατρέψετε σε InlineShape
Αν . Πληκτρολογήστε = wdSelectionShape τότε
. ShapeRange ( 1 ) . ConvertToInlineShape
End If End
Με
End Sub
5
δεξί κλικ μέσα στο κενό χώρο στο παράθυρο VBE , κάντε δεξί κλικ και επιλέξτε " επικόλληση " για να επικολλήσετε τον κώδικα στο παράθυρο .
Η
6 Κλείστε το παράθυρο VBE και να αποθηκεύσετε το έγγραφο .
Η 7
Επισημάνετε τις περιοχές που περιέχουν τα σχήματα που θέλετε να μετατρέψετε κάνοντας κλικ και σύροντας με το ποντίκι .
8
Κρατήστε πατημένο το πλήκτρο " Alt " ενώ πατάτε "F8 " για να ανοίξετε το παράθυρο μακροεντολών . Κάντε κλικ στο " ConvertToInlineShape " και κάντε κλικ στο "Run " για να μετατρέψετε τα σχήματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα