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

Μπορείτε εύκολα να εισαγάγετε εικόνες σε υπολογιστικά φύλλα του Excel και να τις επεξεργαστείτε με κώδικα μακροεντολής. Δείτε πώς μπορείτε να εισαγάγετε μια εικόνα σε ένα κελί χρησιμοποιώντας VBA στο Excel .

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

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

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

• 1. Ενεργοποιήστε τα Εργαλεία προγραμματιστή
• 2. Δημιουργήστε μακροεντολές και εισαγάγετε κώδικα
• 3. Διαχωρισμός κωδικού

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

1. Ενεργοποιήστε τα Εργαλεία προγραμματιστή

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

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

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

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

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

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

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

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

Ο τελικός κώδικας θα μοιάζει με αυτό:

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

Τώρα ήρθε η ώρα να δείτε τον κώδικα σε δράση:

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

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

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

3. Διαχωρισμός κωδικού

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

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

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

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

Χρησιμοποιώντας το If photoNameAndPath = False Στη συνέχεια, Exit Sub , εάν δοθεί μια μη έγκυρη ή κενή διεύθυνση, η διαδικασία θα τερματιστεί. Ωστόσο, εάν παρέχεται ένα κατάλληλο αρχείο, το Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) υποδεικνύει ότι η εικόνα πρέπει να οριστεί ως μεταβλητή όπως ορίστηκε αρχικά. Θα εισαχθεί στο ενεργό φύλλο εργασίας.

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

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

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

Παρακάτω περιγράφεται ο τρόπος χρήσης του VBA για την εισαγωγή εικόνων σε κελιά στο Excel . Ελπίζω το άρθρο να είναι χρήσιμο για εσάς.