Πώς να εισαγάγετε μια εικόνα σε ένα κελί χρησιμοποιώντας VBA στο Excel

Η Visual Basic for Application, VBA για συντομία, είναι μια μορφή Visual Basic 6 ενσωματωμένη σε προγράμματα του Microsoft Office. Μέσω κωδικοποίησης, το VBA σάς επιτρέπει να αυτοματοποιείτε εργασίες σε προγράμματα του Office, συμπεριλαμβανομένου του Excel. Σε ορισμένες περιπτώσεις, μπορείτε ακόμη και να προσθέσετε νέες δυνατότητες στο Excel χρησιμοποιώντας VBA.

Αν και πρέπει να εργαστείτε με κώδικα για να χρησιμοποιήσετε το VBA, αυτό δεν σημαίνει ότι το VBA είναι όλα γράμματα και αριθμοί. Με το VBA στο Excel, μπορείτε να δημιουργήσετε μια μακροεντολή που σας επιτρέπει να εισάγετε εικόνες σε ένα κελί ή μια περιοχή κελιών. Διαβάστε παρακάτω για να μάθετε τα πάντα για αυτό!

Πώς να εισαγάγετε μια εικόνα σε ένα κελί χρησιμοποιώντας VBA στο Excel

Για να δημιουργήσετε μια μακροεντολή για την εισαγωγή εικόνων σε κελιά του Excel χρησιμοποιώντας VBA, στην πραγματικότητα δεν χρειάζεστε προηγμένες γνώσεις της Visual Basic. Το μόνο που χρειάζεται να κάνετε είναι να ενεργοποιήσετε τα εργαλεία προγραμματιστή, να δημιουργήσετε τη μακροεντολή και να επικολλήσετε τον σωστό κώδικα.

Ωστόσο, αν σας ενδιαφέρει να μάθετε VBA και να γράψετε τον δικό σας κώδικα κάποια μέρα, αναλύσαμε τον κώδικα VBA στην τρίτη ενότητα. Φυσικά, μπορείτε επίσης εισαγωγή εικόνων στο Excel χωρίς χρήση VBA. Αλλά αυτό το άρθρο είναι για να το κάνετε μέσω VBA. Ας ξεκινήσουμε δουλειά!

Για να χρησιμοποιήσετε το VBA στο Excel, πρέπει να ενεργοποιήσετε τα εργαλεία προγραμματιστή στο Excel. Αυτό θα ενεργοποιήσει την καρτέλα Προγραμματιστής στην κορδέλα, η οποία είναι απενεργοποιημένη από προεπιλογή.

1. Ανοίξτε το Excel.
2. μεταβείτε στο Αρχείο μενού.
3. Κάντε κλικ στο Επιλογές στο κάτω μέρος της οθόνης. Αυτό θα ανοίξει το παράθυρο Επιλογές του Excel.
4. Στις Επιλογές του Excel, μεταβείτε στο Προσαρμογή κορδέλας αυτί.
5. Κάτω από Κύριες καρτέλες, έλεγχος Προγραμματιστής.

Τώρα τα εργαλεία προγραμματιστή, συμπεριλαμβανομένης της πρόσβασης στο VBA, είναι ενεργοποιημένα για εσάς. Δεν χρειάζεται να το κάνετε αυτό κάθε φορά που θέλετε να χρησιμοποιήσετε VBA στο Excel. Τα εργαλεία προγραμματιστή θα παραμείνουν ενεργοποιημένα μέχρι να τα απενεργοποιήσετε.

2. Δημιουργία της μακροεντολής και εισαγωγή του κώδικα

Τώρα ήρθε η ώρα να ξεκινήσετε τη δημιουργία της μακροεντολής. Εναλλακτικά, θα μπορούσατε επίσης δημιουργήστε ένα κουμπί χρησιμοποιώντας VBA για αυτήν την εργασία, αλλά θα παραμείνουμε με τις μακροεντολές.

1. Στο Excel, μεταβείτε στο Προγραμματιστής αυτί.
2. Στο Κώδικας ενότητα, επιλέξτε Μακροεντολές.
3. Στο νέο παράθυρο, εισαγάγετε ένα όνομα για τη μακροεντολή σας κάτω από Όνομα μακροεντολής. Θα χρησιμοποιήσουμε εισάγετεPhotoMacro.
4. Κάντε κλικ Δημιουργώ.

Μόλις κάνετε κλικ στο Create, θα ανοίξει το παράθυρο VBA και θα εμφανιστεί ο κώδικας για τη μακροεντολή σας. Αυτήν τη στιγμή, ο κωδικός θα αποτελείται από δύο γραμμές: A Υπο για την εκκίνηση της μακροεντολής και ένα End Sub να το τελειώσει.

Ας προσθέσουμε λίγο κώδικα σε αυτήν τη μακροεντολή. Προσθέστε τον ακόλουθο κώδικα μεταξύ των δύο γραμμών:

Μείωση φωτογραφίας NameAndPath Οπως και Παραλαγή
Θαμπή φωτογραφία Οπως και Εικόνα
photoNameAndPath = Εφαρμογή. GetOpenFilename (Title:="Επιλέγω φωτογραφία προς τηνΕισάγετε")
Αν photoNameAndPath = Ψευδής Επειτα Εξοδος Υπο
Σειρά φωτογραφία = ActiveSheet. Εικόνες. Εισαγωγή (photoNameAndPath)
Με φωτογραφία
 .Αριστερά = ActiveSheet. Εύρος("Α'1").Αριστερά
 .Top = ActiveSheet. Εύρος("Α'1").Μπλουζα
 .Width = ActiveSheet. Εύρος("Α'1").Πλάτος
 .Ύψος = Ενεργό Φύλλο. Εύρος("Α'1").Υψος
 .Τοποθέτηση = 1
ΤέλοςΜε

Ο τελικός κωδικός σας θα πρέπει να είναι κάτι σαν το παρακάτω:

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

Τώρα ήρθε η ώρα να δείτε τον κώδικα σε λειτουργία.

1. Κλείστε το παράθυρο VBA.
2. μεταβείτε στο Προγραμματιστής καρτέλα στο Excel.
3. Επιλέγω Μακροεντολές από το Κώδικας Ενότητα.
4. Επισημάνετε τη μακροεντολή που μόλις δημιουργήσατε.
5. Κάντε κλικ Τρέξιμο.

Τώρα θα ανοίξει ένα μήνυμα που σας ζητά να εντοπίσετε το αρχείο εικόνας που θέλετε να εισαγάγετε. Επιλέξτε την εικόνα σας και μετά κάντε κλικ Ανοιξε. Θα πρέπει τώρα να δείτε τη φωτογραφία σας στο κελί Α1!

Παρατηρήστε ότι η εικόνα που έχει εισαχθεί έχει συρρικνωθεί ώστε να ταιριάζει στο κελί A1. Μπορείτε να το αλλάξετε αυτό και επίσης να αλλάξετε τον κωδικό για να εισαγάγετε την εικόνα σε άλλα κελιά ή ακόμα και σε μια σειρά κελιών. Στην επόμενη ενότητα, θα αναλύσουμε τον κώδικα και θα εξηγήσουμε τις παραμέτρους που λειτουργούν.

3. Σπάζοντας τον Κώδικα

Για να κάνετε αυτόν τον κώδικα VBA να λειτουργεί για εσάς όπως θέλετε, πρέπει να τον κατανοήσετε. Μόλις το κάνετε, μπορείτε να αλλάξετε τον κώδικα για να εισαγάγετε φωτογραφίες σε οποιοδήποτε κελί σε οποιοδήποτε μέγεθος. Θα εξετάσουμε τον κώδικα λίγο-λίγο για να γίνει πιο κατανοητός.

Sub insertPhotoMacro()
Μείωση φωτογραφίας NameAndPath Οπως και Παραλαγή
Θαμπή φωτογραφία Οπως και Εικόνα
photoNameAndPath = Εφαρμογή. GetOpenFilename (Title:="Επιλέγω φωτογραφία προς τηνΕισάγετε")
Αν photoNameAndPath = Ψευδής Επειτα Εξοδος Υπο
Σειρά φωτογραφία = ActiveSheet. Εικόνες. Εισαγωγή (photoNameAndPath)
Με φωτογραφία
.Αριστερά = ActiveSheet. Εύρος("Α'1").Αριστερά
.Top = ActiveSheet. Εύρος("Α'1").Μπλουζα
.Width = ActiveSheet. Εύρος("Α'1").Πλάτος
.Ύψος = Ενεργό Φύλλο. Εύρος("Α'1").Υψος
.Τοποθέτηση = 1
ΤέλοςΜε
Τέλος Υπο

Μόλις ξεκινήσει ο κώδικας, χρησιμοποιούμε το Αμυδρός δήλωση για τον προσδιορισμό του τύπου της μεταβλητής. Έχουμε δύο μεταβλητές εδώ: photoNameAndPath και φωτογραφία εαυτό. Καθορίσαμε το πρώτο ως α Παραλαγή και το τελευταίο ως α φωτογραφία.

Από εκεί, εκτελείται η μεταβλητή photoNameAndPath και ανοίγει μια εφαρμογή για να βρει το πού βρίσκεται το αρχείο εικόνας. Αυτό γίνεται μέσω Εφαρμογή. GetOpenFileName. ο Τίτλος Η παράμετρος είναι προαιρετική και το περιεχόμενο σε αυτήν εμφανίζεται ως όνομα παραθύρου.

Χρησιμοποιώντας Εάν photoNameAndPath = False, τότε βγείτε από το Sub, καθορίζουμε ότι εάν δοθεί μια μη έγκυρη ή κενή διεύθυνση, η διαδικασία θα πρέπει να τερματιστεί. Ωστόσο, εάν τροφοδοτηθεί ένα σωστό αρχείο, τότε Ορισμός φωτογραφίας = ActiveSheet. Εικόνες. Εισαγωγή (photoNameAndPath) υποδεικνύει ότι η εικόνα πρέπει να οριστεί ως η μεταβλητή φωτογραφίας που ορίσαμε νωρίτερα και θα πρέπει να εισαχθεί στο ενεργό υπολογιστικό φύλλο.

Τέλος χρησιμοποιώντας Με φωτογραφία και τις πέντε γραμμές που το ακολουθούν, αναλύουμε τη θέση της εικόνας. .Αριστερά και .Μπλουζα υποδεικνύουν τις τοποθεσίες έναρξης, ενώ .Πλάτος και .Υψος υποδεικνύουν τις τελικές τοποθεσίες. Αν θέλετε να εισαγάγετε την εικόνα σε άλλα κελιά ή σε μια περιοχή, τότε αυτές είναι οι γραμμές που πρέπει να αλλάξετε.

.Τοποθέτηση υποδεικνύει εάν η εικόνα πρέπει να έχει μέγεθος με τα κελιά ή να εισαχθεί σε ελεύθερη μορφή. Ρύθμιση σε 1 θα το μέγεθος με τα κελιά.

Τελικά, χρησιμοποιούμε Τέλος Με και μετά End Sub για να κλείσετε τη μακροεντολή. Σημειώστε ότι μπορείτε να αλλάξετε το photoNameAndPath και φωτογραφία μεταβλητές σε όποιο άλλο όνομα θέλετε. Απλώς θυμηθείτε να διατηρήσετε τα ονόματα συνεπή σε όλο τον κώδικα.

Κάντε περισσότερα στο Excel με VBA

Το Excel είναι πράγματι ένα θαυμάσιο εργαλείο για την οργάνωση και την ανάλυση δεδομένων, αλλά αυτό δεν σημαίνει ότι το Excel είναι ανίκανο όσον αφορά τα γραφικά. Αν και οι φωτογραφίες και τα bitmaps δεν είναι η πιο δυνατή εφαρμογή του Excel, το Excel εξακολουθεί να είναι απόλυτα ικανό να τα χειριστεί.

Αν και μπορείτε να εισάγετε εικόνες στο Excel χρησιμοποιώντας τη διεπαφή όπως θα κάνατε σε άλλες εφαρμογές του Office, μπορείτε επίσης να το κάνετε χρησιμοποιώντας VBA. Με το VBA, μπορείτε να αυτοματοποιήσετε αυτήν την εργασία και ακόμη και να τη συνδυάσετε με άλλες εργασίες για να εκτελούνται ταυτόχρονα. Οι δυνατότητες με το VBA στο Excel είναι ατελείωτες.