Πώς να Τοποθετήστε εικόνας Ενσωματωμένα σε Visual Basic

Visual Basic ( VB ) είναι μια γλώσσα προγραμματισμού από τη Microsoft που μπορεί να δημιουργήσει αυτόνομες εφαρμογές , και επίσης να επεκτείνει τις λειτουργίες των εφαρμογών της σουίτας Microsoft Office . Ένα VB λειτουργία μπορεί να επεκταθεί περιλαμβάνει τις εικόνες που σχετίζονται με έγγραφα του Office . Ένα πρόγραμμα VB μπορεί να αποθηκεύσει μια εικόνα σε ένα έγγραφο , σε αντίθεση με τη σύνδεση της εικόνας στο έγγραφο . Αν και αυτό παράγει ένα μεγαλύτερο μέγεθος του εγγράφου από ένα με μια συνδεδεμένη εικόνα , το έγγραφο δεν θα υποστούν ένα βασικό πρόβλημα του ενός με συνδεδεμένες εικόνες : η πιθανότητα ότι η συνδεδεμένη εικόνα αποσυνδεθεί από το έγγραφο . Οδηγίες
Η

1 Ανοίξτε το Microsoft Word και κάντε κλικ στο "Εισαγωγή " " Εικόνα " στοιχείο μενού . Κάντε κλικ στην επιλογή " Από αρχείο" . Θα συνδέσετε μια εικόνα στο τρέχον έγγραφο , στη συνέχεια, χρησιμοποιήστε τη Visual Basic για να ενσωματώσετε την εικόνα . 2

Πλοηγηθείτε σε οποιοδήποτε αρχείο εικόνας στον σκληρό σας δίσκο , στη συνέχεια, ελέγξτε το " Σύνδεση με αρχείο " chec - kbox στο παράθυρο διαλόγου " Εισαγωγή εικόνας " . Αυτό εξασφαλίζει ότι η εικόνα δεν θα ( ακόμη) να ενσωματωθεί στο έγγραφο , αλλά συνδέεται με αυτήν . Πατήστε το κουμπί "Εισαγωγή" για να συνδέσει την εικόνα .
Εικόνων 3

Πατήστε το " Alt " και " F9 " για να εμφανίσετε όλους τους κωδικούς τομέα στο τρέχον έγγραφο . (Κωδικοί πεδίων είναι σύμβολα του Word εμφανίζεται ως κείμενο που αντιπροσωπεύουν άλλο περιεχόμενο , συμπεριλαμβανομένων ενημερώνεται αυτόματα σφραγίδες χρόνου , ή συνδεδεμένες εικόνες ) . Η εικόνα που εισάγεται θα αποκαλύψει « INCLUDEPICTURE " κώδικα τομέα της, δείχνει ότι η εικόνα συνδέεται , αλλά δεν έχει ακόμη ενσωματωθεί.
Η

4 Πατήστε το πλήκτρο " Alt και " F11 " για να μπείτε στο Basic ολοκληρωμένο περιβάλλον ανάπτυξης Visual ( IDE ) . Αυτό το περιβάλλον περιλαμβάνει εργαλεία για τη σύνταξη του προγράμματος για να ενσωματώσετε την εικόνα .
5

Κάντε κλικ στο "Εισαγωγή " " ενότητα " στοιχείο τίτλο μενού για να δημιουργήσετε ένα νέο παράθυρο για την εισαγωγή κώδικα του προγράμματος .

6

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

Δημόσια embedImages Sub ( )

Dim i

Dim x

Dim nxtField

Set x = ActiveDocument.Fields ( 1 )

While Not ( x δεν είναι τίποτα )

Set nxtField = x.Next

Αν x.Type = WdFieldType.wdFieldIncludePicture συνέχεια

x.Unlink

End If

Set x = nxtField

Wend

Sub End

7

Κάντε κλικ σε οποιαδήποτε κατάσταση του " Αποσύνδεση " πρόγραμμα που μόλις έγραψε , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα .
8

Πατήστε το πλήκτρο " Alt " και " F11 " για να επιστρέψετε το έγγραφο . η εικόνα κωδικός πεδίου από το Βήμα 3 έχει φύγει . πρόγραμμά σας έχει αντικατασταθεί με την εικόνα . Πατήστε το πλήκτρο " Alt " και " F9 " δύο φορές για να επιβεβαιώσει ότι δεν υπάρχουν άλλες " INCLUDEPICTURE " τους κωδικούς πεδίων στο έγγραφο
<. br >
εικόνων