Salt la conținutul principal

Cum să redimensionați imaginile pentru a se potrivi celulelor din Excel?

Imaginile inserate în mod normal plutesc peste celule și, de cele mai multe ori, o imagine acoperă o mulțime de celule. Dacă o foaie de lucru are un număr mare de imagini, poate doriți să puneți fiecare imagine într-o singură celulă. Dar cum să ne descurcăm? De fapt, există mai multe modalități dificile de a ne ajuta să redimensionăm imaginile pentru a se potrivi rapid cu dimensiunea celulelor.

Redimensionați o imagine selectată pentru a se potrivi unei singure celule cu Macro VB

Redimensionați imaginile inserate pentru a se potrivi celulelor cu Kutools pentru Excel


săgeată albastru dreapta balon Redimensionați o imagine selectată pentru a se potrivi unei singure celule cu Macro VB

Putem aplica macrocomenzi VB pentru a redimensiona o imagine selectată pentru a se potrivi unei singure celule, dar nu pentru a redimensiona manual lățimea și înălțimea unei imagini. Puteți face acest lucru cu următorii pași:

Pasul 1: introduceți imaginile într-o foaie de lucru și selectați o imagine pe care o veți redimensiona pentru a se potrivi unei singure celule.

doc-redimensionează-imaginile-pentru-a-se-potrivi-celule1

Pasul 2: Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

Pasul 3: Faceți clic pe Insera > Moduleși lipiți următoarea macro în fereastra modulului.

VBA: Redimensionați o imagine selectată pentru a se potrivi unei celule.

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

Pasul 4: Apăsați tasta F5 tasta pentru a rula această macro.

Pasul 5: Repetați pașii de mai sus pentru a redimensiona alte imagini pentru a se potrivi cu o singură celulă.

Acum toate imaginile inserate sunt redimensionate și se încadrează în celule. Vedeți următoarea captură de ecran:

doc-redimensionează-imaginile-pentru-a-se-potrivi-celule2

notițe: Puteți redimensiona o singură imagine o singură dată. Dacă selectați mai multe imagini o dată, va apărea o casetă de dialog de avertizare.


săgeată albastru dreapta balon Redimensionați imaginile inserate pentru a se potrivi celulelor cu Kutools pentru Excel

Dacă aveţi Kutools pentru Excel instalat, îi puteți aplica Importați imagini instrument pentru a redimensiona toate imaginile pentru a se potrivi celulelor sau cu înălțimea fixă ​​în timpul inserării imaginilor.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.

Pasul 1: Selectați intervalul de celule pe care doriți să le inserați și faceți clic pe Afacere >Import / Export > Importați imagini. Vedeți următoarea captură de ecran:

doc-redimensionează-poza-pentru-potrivi-celula-1

Pasul 2: În Importați imagini caseta de dialog, selectați ordinea de inserare în lista derulantă și faceți clic pe Adăuga pentru a adăuga imagini de care aveți nevoie din fișier sau folder, apoi faceți clic pe Mărimea buton. Vedeți captura de ecran:

doc-redimensionează-poza-pentru-potrivi-celula-2

Pasul 3: Verificați Dimensiunea celulei potrivită opțiune. Apoi apasa Ok > Import pentru a închide dialoguri. Vedeți captura de ecran:

doc-redimensionează-poza-pentru-potrivi-celula-3

Acum puteți vedea că imaginile sunt inserate pentru a se potrivi celulelor.

doc-redimensionează-poza-pentru-potrivi-celula-4

notițe: De asemenea, puteți specifica înălțimea și lățimea celulei la pasul 3 pentru a redimensiona imaginile.

Dacă doriți să aflați mai multe despre acest lucru Importați imaginea caracteristică, vă rugăm să vizitați aici.


Articolul înrudit:

Cum să redimensionați mai multe celule pentru a se potrivi rapid imaginilor de deasupra lor în Excel?

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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