Skip to main content

Conas pictiúir a athrú chun cealla a fheistiú in Excel?

Snámhann pictiúir a chuirtear isteach de ghnáth thar chealla, agus clúdaíonn a lán cealla an chuid is mó den am. Má tá líon mór pictiúr ar bhileog oibre, b’fhéidir gur mhaith leat gach pictiúr a chur in aon chill amháin. Ach conas déileáil leis? I ndáiríre, tá bealaí fánacha éagsúla ann chun cabhrú linn pictiúir a athrú chun méid na gcealla a fheistiú go tapa.

Athraigh méid roghnaithe chun cill aonair a fheistiú le VB Macro

Athraigh méid na bpictiúr a cuireadh isteach chun cealla a fheistiú le Kutools le haghaidh Excel


mboilgeog cheart gorm saighead Athraigh méid roghnaithe chun cill aonair a fheistiú le VB Macro

Is féidir linn macraí VB a chur i bhfeidhm chun pictiúr roghnaithe a athrú chun cill aonair a fheistiú, ach gan leithead agus airde pictiúr a athrú de láimh. Is féidir leat é a dhéanamh leis na céimeanna seo a leanas:

Céim 1: Cuir na pictiúir isteach i mbileog oibre, agus roghnaigh pictiúr a athróidh tú chun go n-oirfidh sé do chill aonair.

doc-athraigh méid-pictiúir-le-luí-cealla1

Céim 2: Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Céim 3: Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

VBA: Athraigh méid roghnaithe chun cill a fheistiú.

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

Céim 4: Brúigh an F5 eochair chun an macra seo a rith.

Céim 5: Déan na céimeanna thuas arís chun pictiúir eile a athrú chun go n-oirfidh cill aonair.

Anois athraítear gach pictiúr a chuirtear isteach agus luíonn sé le cealla. Féach an pictiúr seo a leanas:

doc-athraigh méid-pictiúir-le-luí-cealla2

nótaí: Ní féidir leat ach pictiúr amháin a athrú uair amháin. Má roghnaíonn tú níos mó ná pictiúr amháin uair amháin, nochtfaidh bosca dialóige rabhaidh.


mboilgeog cheart gorm saighead Athraigh méid na bpictiúr a cuireadh isteach chun cealla a fheistiú le Kutools le haghaidh Excel

Má tá tú Kutools le haghaidh Excel suiteáilte, is féidir leat a Pictiúir Iompórtála uirlis chun na pictiúir go léir a athrú chun cealla a fheistiú nó le airde seasta le linn pictiúir a chur isteach.

Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.

Céim 1: Roghnaigh na cealla raon is mian leat pictiúir a chur isteach agus cliceáil ar an Fiontar >Iompórtáil / Easpórtáil > Pictiúir Iompórtála. Féach an pictiúr seo a leanas:

doc-athraigh méid-pictiúr-go-feistiú-cill-1

Céim 2: Sa Pictiúir Iompórtála bosca dialóige, roghnaigh an t-ordú isteach sa liosta anuas, agus cliceáil Cuir cnaipe chun pictiúir a theastaíonn uait a chur leis ón gcomhad nó ón bhfillteán, ansin cliceáil méid cnaipe. Féach an pictiúr:

doc-athraigh méid-pictiúr-go-feistiú-cill-2

Céim 3: Seiceáil Méid na gceall a mheaitseáil rogha. Ansin cliceáil Ok > Iompórtáil dialóga a dhúnadh. Féach an pictiúr:

doc-athraigh méid-pictiúr-go-feistiú-cill-3

Anois feiceann tú go gcuirtear na pictiúir isteach chun na cealla a fheistiú.

doc-athraigh méid-pictiúr-go-feistiú-cill-4

nótaí: Is féidir leat airde agus leithead na cille i gcéim 3 a shonrú freisin chun na pictiúir a athrú.

Más mian leat tuilleadh a fháil amach faoi seo Iompórtáil Pictiúr gné, tabhair cuairt anseo.


Airteagal gaolmhar:

Conas méid iolrach cealla a athrú chun pictiúir os a gcionn a fheistiú go tapa in Excel?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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