Πώς να φορτώσει μια εικόνα στο Excel στο AutoOpen Ώρα Χρήση της Visual Basic

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

1 Ανοίξτε το Excel , κάντε δεξί κλικ στην καρτέλα με την ένδειξη " Φύλλο1 " στο κάτω μέρος της οθόνης . Κάντε κλικ στο "Προβολή κώδικα " για να εμφανιστεί το VB περιβάλλον κωδικοποίησης . 2

Κάντε διπλό κλικ στο " ThisWorkbook " στοιχείο στο "Project " στο αριστερό παράθυρο της οθόνης . Αυτή η ενέργεια αυτή εμφανίζεται ένα κενό παράθυρο κώδικα που παρέχει ένα χώρο για να εισέλθουν τα προγράμματα που επηρεάζουν ολόκληρο το βιβλίο εργασίας
εικόνων 3

Κάντε κλικ στο αριστερό πιο αναπτυσσόμενη λίστα δίπλα από το πάνω μέρος της οθόνης - . Που επί του παρόντος εμφανίζει " General ". Κάντε κλικ στο "Βιβλίο εργασίας " στον εν λόγω κατάλογο . Η πιο δεξιά λίστα drop-down θα εμφανίσει μια λίστα με τις λειτουργίες που εκτελούνται όταν συμβαίνουν διάφορα γεγονότα που αφορούν το βιβλίο εργασίας . Μία από αυτές τις λειτουργίες εκδήλωσης , " Open, « τρέχει όταν το βιβλίο εργασίας άνοιξε για πρώτη φορά .
Η

4 Κάντε κλικ στο "Άνοιγμα" στοιχείο στο δεξιό - πιο drop -down λίστα για να δημιουργήσετε μια κενή λειτουργία γεγονός που ονομάζεται " Workbook_Open . " Επικολλήστε τον παρακάτω κώδικα πάνω από το " End Sub " δήλωση αυτής της συνάρτησης : .

ActiveSheet.Pictures.Insert ( " " ) Επιλέξτε
5

Πληκτρολογήστε πάνω από το κείμενο " "με το όνομα διαδρομής του αρχείου εικόνας στο σκληρό σας δίσκο ( π.χ. " C : \\ χρήστες \\ ClarkKent \\ Pictures \\ MyBeachParty.jpg " )
Η 6

Επιστροφή στο πρότυπο περιβάλλον εργασίας του Excel . πατώντας " Alt - F11 , " και στη συνέχεια πατήστε " Alt - F4 " για να ξεκινήσει το κλείσιμο του βιβλίου εργασίας . Πληκτρολογήστε ένα όνομα αρχείου για το βιβλίο εργασίας , όταν σας ζητηθεί , και επιλέξτε " Βιβλίο εργασίας με μακροεντολές ( * . Xlsm ) " για τον τύπο αρχείου .
Η 7

Ανοίξτε ξανά το βιβλίο εργασίας . Το πρόγραμμα που ολοκληρώνεται στο βήμα 4 θα εκτελέσει , και να φορτώσει το γραφικό αρχείο που καθορίζεται σε ένα κελί στο πρώτο φύλλο εργασίας .
8

Επιστροφή στο πρόγραμμά σας επαναλαμβάνοντας το βήμα 2 και, στη συνέχεια αντικαταστήστε την τρέχουσα κατάσταση στην το πρόγραμμα με αυτό :

ActiveSheet.SetBackgroundPicture αρχείου : = " "
Η 9

Επαναλάβετε το βήμα 5 για να προσαρμόσετε τον κώδικα του προγράμματος για να φορτώσει την εικόνα από το σκληρό σας δίσκο , στη συνέχεια, κλείστε και ανοίξτε πάλι το βιβλίο εργασίας . Excel θα εμφανίσει μια εικόνα φόντου πλακάκια σε όλη την πρώτη φύλλο εργασίας .
Η 10

Επιστροφή στο πρόγραμμά σας στο περιβάλλον VB ( με βάση τις οδηγίες βήμα προς 2 ) . Αντικαταστήστε την ενιαία δήλωση με αυτά :

Δημ. strFile

strFile = εισαγωγής ("Δώστε την εικόνα όνομα της διαδρομής " )

ActiveSheet.SetBackgroundPicture αρχείου : = strFile

11

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