Skip i'r prif gynnwys

Sut i newid maint celloedd lluosog i ffitio lluniau yn gyflym yn Excel?

Fel y gwyddom, mae Microsoft Excel yn cefnogi newid maint uchder rhes a lled colofn cell yn awtomatig i ffitio cynnwys wedi'i lenwi, fel llinyn testun hir. Fodd bynnag, nid yw gorchymyn Uchder Row AutoFit a gorchymyn Lled colofn AutoFit yn ddilys ar gyfer llun, oherwydd nid yw llun wedi'i fewnosod yn preswylio mewn cell benodol.

Newid maint celloedd i ffitio lluniau gyda VBA

Newid maint lluniau i ffitio celloedd gyda Kutools ar gyfer Excel syniad da3


Newid maint celloedd i ffitio lluniau gyda VBA

Gan dybio bod dau lun mawr mewn taflen waith, gweler y llun sgrin canlynol. Efallai y bydd rhywun eisiau newid maint cell i ffitio llun uwchben y gell. Ond sut i'w wireddu?

doc-newid maint-cell-i-ffitio-llun1

Wrth gwrs, gallwch newid maint pob cell yn awtomatig i ffitio lluniau uwch eu pennau. Fodd bynnag, gall fod yn ddiflas ac yn cymryd llawer o amser i nifer o luniau. Mewn gwirionedd, gallwn gymhwyso macro VB i newid maint pob cell i ffitio lluniau uwch eu pennau. Gallwch ei wneud gyda'r camau canlynol:

Cam 1: Dalwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Cam 2: Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

VBA: Newid maint celloedd lluosog i ffitio'u lluniau.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Cam 3: Pwyswch y F5 allwedd i redeg y macro hwn.

Nawr yn y daflen waith gyfredol, os oes lluniau, bydd y gell bellow yn newid maint i ffitio'r llun uwch ei ben. Gweler y screenshot canlynol:

doc-newid maint-cell-i-ffitio-llun2


Newid maint lluniau i ffitio celloedd gyda Kutools ar gyfer Excel

Os ydych chi wedi addasu maint y celloedd fel islaw'r screenshot a ddangosir, ac yna rydych chi am fewnforio a newid maint y lluniau i gyd-fynd â maint y celloedd, sut allwch chi ei wneud yn gyflym? Yn yr achos hwn, Kutools ar gyfer Excel's Mewnforio Pictrues gall cyfleustodau eich helpu i drin y swydd hon yn hawdd.
doc newid maint llun ffit cell 1

Kutools ar gyfer Excel, gyda mwy na 120 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythwch Kutools Am Ddim ar gyfer Excel Nawr!)

1. Cliciwch Menter > Mewnforio / Allforio > Mewnforio Lluniau. Gweler y screenshot:
doc newid maint llun ffit cell 2

2. Yn y popping Mewnforio Lluniau deialog, gallwch chi nodi'r gorchymyn mewnforio yn gyntaf i mewn Gorchymyn mewnforio adran, ac yna cliciwch Ychwanegu botwm i ychwanegu lluniau o'r ffolder neu fel ffeiliau fesul un, yna gallwch weld bod y lluniau wedi'u rhestru yn y Llun adran. Gweler y screenshot:
doc newid maint llun ffit cell 3

3. Yna cliciwch mewnforio botwm i'w ddangos Mewnforio Maint Llun deialog, yna gwiriwch Paru maint celloedd opsiwn. Gweler y screenshot:
doc newid maint llun ffit cell 4

4. Cliciwch OK > mewnforio i arddangos deialog i ddewis y celloedd rydych chi am fewnforio lluniau. Gweler y screenshot:
doc newid maint llun ffit cell 5

5. Cliciwch OK, ac yn awr mae'r holl pirtcures yn cael eu mewnforio i'r celloedd ac yn newid maint eu maint i fite celloedd.
doc newid maint llun ffit cell 6


Erthygl Cysylltiedig:
Sut i fewnosod lluniau lluosog yn y gell yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How did you get come up with the formula (Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288))? It's close but there is still a gap to the right as shown in your screenshot.
This comment was minimized by the moderator on the site
Great and all, but i already had pictures in cells and by using the first option it obliterated like 99% of all photos already present. None were spared except for one photo which was resized beautifully except that the width of the photo was a bit thin.
This comment was minimized by the moderator on the site
Hello Thank you for the macro. I cannot get to work in my computer though. I use Excel 2011 for Mac Any ideas? Thanks
This comment was minimized by the moderator on the site
Hi, great macro - small correction with greater OR EQUAL in the 16 row If Rows(N).Top >= PictureTop Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations