Μετάβαση στο κύριο περιεχόμενο

Πώς να αλλάξετε το μέγεθος των εικόνων ώστε να ταιριάζουν στα κελιά στο Excel;

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

Αλλαγή μεγέθους μιας επιλεγμένης εικόνας για προσαρμογή ενός κελιού με μακροεντολή VB

Αλλαγή μεγέθους εισηγμένων εικόνων για προσαρμογή κελιών με το Kutools για Excel


βέλος μπλε δεξιά φούσκα Αλλαγή μεγέθους μιας επιλεγμένης εικόνας για προσαρμογή ενός κελιού με μακροεντολή VB

Μπορούμε να εφαρμόσουμε μακροεντολές VB για να αλλάξουμε το μέγεθος μιας επιλεγμένης εικόνας ώστε να ταιριάζει σε ένα κελί, αλλά όχι για να αλλάξετε το μέγεθος του πλάτους και του ύψους μιας εικόνας. Μπορείτε να το κάνετε με τα ακόλουθα βήματα:

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

doc-resize-pictures-to-fit-cells1

Βήμα 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: Επαναλάβετε τα παραπάνω βήματα για να αλλάξετε το μέγεθος άλλων εικόνων ώστε να ταιριάζουν σε ένα κελί.

Τώρα όλες οι εικόνες που έχουν εισαχθεί αλλάζουν μέγεθος και χωράει σε κελιά. Δείτε το παρακάτω στιγμιότυπο οθόνης:

doc-resize-pictures-to-fit-cells2

Note: Μπορείτε να αλλάξετε το μέγεθος μόνο μία εικόνα μία φορά. Εάν επιλέξετε περισσότερες από μία εικόνες μία φορά, θα εμφανιστεί ένα παράθυρο διαλόγου προειδοποίησης.


βέλος μπλε δεξιά φούσκα Αλλαγή μεγέθους εισηγμένων εικόνων για προσαρμογή κελιών με το Kutools για Excel

Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το εφαρμόσετε Εισαγωγή εικόνων εργαλείο για να αλλάξετε το μέγεθος όλων των εικόνων ώστε να ταιριάζουν σε κελιά ή με σταθερό ύψος κατά την εισαγωγή εικόνων.

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

Βήμα 1: Επιλέξτε τα κελιά εύρους που θέλετε να εισαγάγετε εικόνες και κάντε κλικ στο Εταιρεία >Εισαγωγή / Εξαγωγή > Εισαγωγή εικόνων. Δείτε το παρακάτω στιγμιότυπο οθόνης:

doc-size-picture-to-fit-cell-1

Βήμα 2: Στο Εισαγωγή εικόνων πλαίσιο διαλόγου, επιλέξτε τη σειρά εισαγωγής στην αναπτυσσόμενη λίστα και κάντε κλικ στο Πρόσθεση για να προσθέσετε εικόνες που χρειάζεστε από αρχείο ή φάκελο και, στη συνέχεια, κάντε κλικ στο κουμπί Μέγεθος κουμπί. Δείτε το στιγμιότυπο οθόνης:

doc-size-picture-to-fit-cell-2

Βήμα 3: Ελέγξτε Ταίριασμα μεγέθους κελιού επιλογή. Στη συνέχεια κάντε κλικ στο κουμπί Ok > εισαγωγή για να κλείσετε τους διαλόγους. Δείτε το στιγμιότυπο οθόνης:

doc-size-picture-to-fit-cell-3

Τώρα μπορείτε να δείτε ότι οι εικόνες έχουν εισαχθεί για να ταιριάζουν στα κελιά.

doc-size-picture-to-fit-cell-4

Note: Μπορείτε επίσης να καθορίσετε το ύψος και το πλάτος του κελιού στο βήμα 3 για να αλλάξετε το μέγεθος των εικόνων.

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


Σχετικό άρθρο:

Πώς να αλλάξετε το μέγεθος πολλών κελιών ώστε να ταιριάζουν γρήγορα σε εικόνες πάνω στο Excel;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
La macro posiziona l'immagine "Immagine 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto As Single ' larghezza foto
Dim Rfoto As Single ' rapporto foto h/L

Range("D5").Select

hcell = Selection.Height
Lcell = Selection.Width
hfoto = ActiveSheet.Shapes("Immagine 2").Height
Lfoto = ActiveSheet.Shapes("Immagine 2").Width
Rfoto = hfoto / Lfoto

If hfoto < Lfoto Then
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

If hfoto > hcell Then
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
End If

ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
Else
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Immagine 2").Width = Lfoto
End If

Range("D5").Select

With ActiveSheet.Shapes("Immagine 2")
.Top = Selection.Top + (Selection.Height - .Height) / 2
.Left = Selection.Left + (Selection.Width - .Width) / 2
End With
End Sub
This comment was minimized by the moderator on the site
Thank you, it really works!
This comment was minimized by the moderator on the site
Hi, Need this code disabling the lock aspect ratio
This comment was minimized by the moderator on the site
Hi..
perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
This comment was minimized by the moderator on the site
Brilliant! Works great! Just what I was looking for! Thank you!
This comment was minimized by the moderator on the site
it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
This comment was minimized by the moderator on the site
Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript. Help! Many thanks, Harry
This comment was minimized by the moderator on the site
Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
This comment was minimized by the moderator on the site
Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?
This comment was minimized by the moderator on the site
Public Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Slight modification to resize into merged cells
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.MergeArea.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.MergeArea.Height
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Placement = xlMoveAndSize
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
This comment was minimized by the moderator on the site
[quote]Works!! But i have one question, i want to fit a img in a range of cells merged, how can i do it?By Marcelo[/quote] Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing. thanks
This comment was minimized by the moderator on the site
I tried this macro last night and it adjust only the height. The width it doesn't incorrectly. Any Help please?
This comment was minimized by the moderator on the site
Thank you this was perfect!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations