Πώς να αλλάξετε το μέγεθος των εικόνων ώστε να ταιριάζουν στα κελιά στο Excel;
Κανονικά οι εισηγμένες εικόνες αιωρούνται πάνω από κελιά και τις περισσότερες φορές μία εικόνα καλύπτει πολλά κελιά. Εάν ένα φύλλο εργασίας έχει μεγάλο αριθμό εικόνων, ίσως θελήσετε να τοποθετήσετε κάθε εικόνα σε ένα μόνο κελί. Αλλά πώς να το αντιμετωπίσουμε; Στην πραγματικότητα, υπάρχουν διάφοροι δύσκολοι τρόποι για να μας βοηθήσετε να αλλάξουμε το μέγεθος των εικόνων ώστε να ταιριάζουν γρήγορα στο μέγεθος των κελιών.
Αλλαγή μεγέθους μιας επιλεγμένης εικόνας για προσαρμογή ενός κελιού με μακροεντολή VB
Αλλαγή μεγέθους εισηγμένων εικόνων για προσαρμογή κελιών με το Kutools για Excel
Αλλαγή μεγέθους μιας επιλεγμένης εικόνας για προσαρμογή ενός κελιού με μακροεντολή VB
Μπορούμε να εφαρμόσουμε μακροεντολές VB για να αλλάξουμε το μέγεθος μιας επιλεγμένης εικόνας ώστε να ταιριάζει σε ένα κελί, αλλά όχι για να αλλάξετε το μέγεθος του πλάτους και του ύψους μιας εικόνας. Μπορείτε να το κάνετε με τα ακόλουθα βήματα:
Βήμα 1: Εισαγάγετε τις εικόνες σε ένα φύλλο εργασίας και επιλέξτε μια εικόνα που θα αλλάξετε το μέγεθός της για να χωρέσει σε ένα κελί.
Βήμα 2: Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
Βήμα 3: Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.
VBA: Αλλαγή μεγέθους μιας επιλεγμένης εικόνας για προσαρμογή σε ένα κελί.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
Βήμα 4: Πατήστε το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής.
Βήμα 5: Επαναλάβετε τα παραπάνω βήματα για να αλλάξετε το μέγεθος άλλων εικόνων ώστε να ταιριάζουν σε ένα κελί.
Τώρα όλες οι εικόνες που έχουν εισαχθεί αλλάζουν μέγεθος και χωράει σε κελιά. Δείτε το παρακάτω στιγμιότυπο οθόνης:
Note: Μπορείτε να αλλάξετε το μέγεθος μόνο μία εικόνα μία φορά. Εάν επιλέξετε περισσότερες από μία εικόνες μία φορά, θα εμφανιστεί ένα παράθυρο διαλόγου προειδοποίησης.
Αλλαγή μεγέθους εισηγμένων εικόνων για προσαρμογή κελιών με το Kutools για Excel
Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το εφαρμόσετε Εισαγωγή εικόνων εργαλείο για να αλλάξετε το μέγεθος όλων των εικόνων ώστε να ταιριάζουν σε κελιά ή με σταθερό ύψος κατά την εισαγωγή εικόνων.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.
Βήμα 1: Επιλέξτε τα κελιά εύρους που θέλετε να εισαγάγετε εικόνες και κάντε κλικ στο Εταιρεία >Εισαγωγή / Εξαγωγή > Εισαγωγή εικόνων. Δείτε το παρακάτω στιγμιότυπο οθόνης:
Βήμα 2: Στο Εισαγωγή εικόνων πλαίσιο διαλόγου, επιλέξτε τη σειρά εισαγωγής στην αναπτυσσόμενη λίστα και κάντε κλικ στο Πρόσθεση για να προσθέσετε εικόνες που χρειάζεστε από αρχείο ή φάκελο και, στη συνέχεια, κάντε κλικ στο κουμπί Μέγεθος κουμπί. Δείτε το στιγμιότυπο οθόνης:
Βήμα 3: Ελέγξτε Ταίριασμα μεγέθους κελιού επιλογή. Στη συνέχεια κάντε κλικ στο κουμπί Ok > εισαγωγή για να κλείσετε τους διαλόγους. Δείτε το στιγμιότυπο οθόνης:
Τώρα μπορείτε να δείτε ότι οι εικόνες έχουν εισαχθεί για να ταιριάζουν στα κελιά.
Note: Μπορείτε επίσης να καθορίσετε το ύψος και το πλάτος του κελιού στο βήμα 3 για να αλλάξετε το μέγεθος των εικόνων.
Αν θέλετε να μάθετε περισσότερα για αυτό Εισαγωγή εικόνας χαρακτηριστικό, επισκεφθείτε εδώ.
Σχετικό άρθρο:
Πώς να αλλάξετε το μέγεθος πολλών κελιών ώστε να ταιριάζουν γρήγορα σε εικόνες πάνω στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!