Note: The other languages of the website are Google-translated. Back to English

Sut i newid maint lluniau i ffitio celloedd yn Excel?

Mae lluniau a fewnosodir fel arfer yn arnofio dros gelloedd, ac mae'r rhan fwyaf o amser un llun yn gorchuddio llawer o gelloedd. Os oes gan daflen waith nifer fawr o luniau, efallai yr hoffech chi roi pob llun mewn un gell. Ond sut i ddelio ag ef? A dweud y gwir, mae yna sawl ffordd anodd i'n helpu i newid maint lluniau i ffitio maint celloedd yn gyflym.

Newid maint llun a ddewiswyd i ffitio un gell gyda VB Macro

Newid maint y lluniau sydd wedi'u mewnosod i ffitio celloedd gyda Kutools ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Newid maint llun a ddewiswyd i ffitio un gell gyda VB Macro


Gallwn gymhwyso macros VB i newid maint llun a ddewiswyd i ffitio un gell, ond nid newid maint lled ac uchder llun â llaw. Gallwch ei wneud gyda'r camau canlynol:

Cam 1: Mewnosodwch y lluniau mewn taflen waith, a dewis llun y byddwch chi'n ei newid maint i ffitio un gell.

doc-newid maint-lluniau-i-ffitio-celloedd1

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

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

VBA: Newid maint llun a ddewiswyd i ffitio cell.

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

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

Cam 5: Ailadroddwch y camau uchod i newid maint lluniau eraill i ffitio un gell.

Nawr mae'r holl luniau sydd wedi'u mewnosod yn cael eu newid maint ac yn ffitio i mewn i gelloedd. Gweler y screenshot canlynol:

doc-newid maint-lluniau-i-ffitio-celloedd2

Nodyn: Gallwch newid maint un llun yn unig un tro. Os dewiswch fwy nag un llun un tro, bydd blwch deialog rhybuddio yn ymddangos.


swigen dde glas saeth Newid maint y lluniau sydd wedi'u mewnosod i ffitio celloedd gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch gymhwyso ei Mewnforio Lluniau offeryn i newid maint yr holl luniau i ffitio celloedd neu ag uchder sefydlog wrth fewnosod lluniau.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Cam 1: Dewiswch y celloedd amrediad rydych chi am fewnosod lluniau a chlicio ar y Menter >Mewnforio / Allforio > Mewnforio Lluniau. Gweler y screenshot canlynol:

doc-newid maint-llun-i-ffitio-cell-1

Cam 2: Yn y Mewnforio Lluniau blwch deialog, dewiswch y drefn fewnosod yn y gwymplen, a chlicio Ychwanegu botwm i ychwanegu lluniau sydd eu hangen arnoch o ffeil neu ffolder, yna cliciwch Maint botwm. Gweler y screenshot:

doc-newid maint-llun-i-ffitio-cell-2

Cam 3: Gwiriwch Paru maint celloedd opsiwn. Yna cliciwch Ok > mewnforio i gau deialogau. Gweler y screenshot:

doc-newid maint-llun-i-ffitio-cell-3

Nawr gallwch weld bod y lluniau'n cael eu mewnosod i ffitio'r celloedd.

doc-newid maint-llun-i-ffitio-cell-4

Nodyn: Gallwch hefyd nodi uchder a lled y gell yng ngham 3 i newid maint y lluniau.

Os ydych chi eisiau gwybod mwy am hyn Mewnforio Llun nodwedd, ewch i yma.


Erthygl Cysylltiedig:

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


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y macro FitPic a nodir uchod yw Sweeeeet! Cymerais griw o luniau o eitemau gwerthu garejys a aeth yn y diwedd i Fyddin yr Iachawdwriaeth. Fe wnes i ddogfennu lluniau a gwerthoedd at ddibenion treth Excel. Gweithiodd y macro hwn y tro cyntaf! :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cyfarwyddiadau ar gyfer Excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch roedd hwn yn berffaith!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio!! Ond mae gen i un cwestiwn, rydw i eisiau ffitio img mewn ystod o gelloedd wedi'u huno, sut alla i ei wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Yn gweithio!! Ond mae gen i un cwestiwn, rydw i eisiau ffitio img mewn ystod o gelloedd wedi'u huno, sut alla i ei wneud?Gan Marcelo[/quote] Marcelo gawsoch chi'r marco wedi'i ddiweddaru ar gyfer y gell unedig? Rwy'n ceisio gwneud yr un peth. diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais y macro hwn neithiwr ac mae'n addasu'r uchder yn unig. Nid yw'r lled yn anghywir. Unrhyw Gymorth os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-ffit Cyhoeddus()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Mân addasiad i newid maint yn gelloedd unedig
Ar Gwall Ewch I NOT_SHAPE
Dim PicWtoHRatio Fel Sengl
Dim CellWtoHRatio Fel Sengl
Gyda Detholiad
PicWtoHRatio = .Width / .Hight
Diwedd Gyda
Gyda Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
Diwedd Gyda
Dewiswch Achos PicWtoHRatio / CellWtoHRatio
Yr achos yw > 1
Gyda Detholiad
.Width = .TopLeftCell.MergeArea.Width
.Uchder = .Width / PicWtoHRatio
Diwedd Gyda
Achos Arall
Gyda Detholiad
.Uchder = .TopLeftCell.MergeArea.Height
.Width=.Uchder* PicWtoHRatio
Diwedd Gyda
Diwedd Dewis
Gyda Detholiad
.Top = .TopLeftCell.MergeArea.Top
.Chwith = .TopLeftCell.MergeArea.Chwith
.Lleoliad = xlMoveAndSize
Diwedd Gyda
Is Allanfa
NOT_SHAPE:
msgstr "Dewiswch lun cyn rhedeg y macro hwn."
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch fe wnaeth weithio ond mae gen i tua 500 o luniau felly dydw i ddim eisiau gwneud nhw un ar y tro - sut ydw i'n gwneud nhw i gyd ar yr un pryd os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi'n hoff iawn o'r macro hwn sy'n gwneud i ddelweddau ffitio celloedd, fe helpodd fi gyda rhai pethau gwaith. Ond a oes unrhyw un yn gwybod sut i ysgrifennu'r cod hwn ar gyfer applescript? Mae'n rhaid i mi ddefnyddio macs ac mae'r fersiwn afal o excel, Numbers, yn defnyddio applescript yn unig. Help! Diolch yn fawr, Harry
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n gweithio os nad yw'r celloedd yn cael eu huno. yn anffodus, fe wnes i uno rhai celloedd ac mae'n ffitio yn y gell chwith uchaf yn unig sy'n gwneud y llun yn fach iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych! Yn gweithio'n wych! Yr union beth roeddwn i'n edrych amdano! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ..
ateb perfact. Ond rwyf am i'r swyddogaeth honno weithio gyda'r botwm gorchymyn. Mae angen i mi wneud botwm gorchymyn i fewnosod a newid maint yn awtomatig i faint cell. helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Angen cod hwn analluogi'r gymhareb agwedd clo
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, mae'n gweithio mewn gwirionedd!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
La macro posiziona l'immagine "Dychmygwch 2" al centro della cella ("D5"), anche se questa è unita ad altre celle. Spero possa esservi cyfleustodau

Is-ImpFoto()
Dim hcell Fel Sengl ' altezza cella
Dim Lcell Fel cella larghezza Sengl
Dim hfoto Fel Sengl ' photo altezza
Dim Lfoto Fel Sengl ' llun larghezza
Dim Rfoto Fel Sengl ' llun rapporto h/L

Ystod ("D5"). Dewiswch

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

Os hfoto < Lfoto Yna
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

Os hfoto > hcell Yna
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
Gorffennwch Os

ActiveSheet.Shapes("Dychmygwch 2"). Uchder = hfoto
ActiveSheet.Shapes("Dychmygwch 2").Width = Lfoto
arall
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Dychmygwch 2"). Uchder = hfoto
ActiveSheet.Shapes("Dychmygwch 2").Width = Lfoto
Gorffennwch Os

Ystod ("D5"). Dewiswch

Gyda ActiveSheet.Shapes("Dychmygwch 2")
.Top = Dewis.Top + (Dethol.Height - .Uchder) / 2
.Left = Dewis.Left + (Dewis.Width - .Width) / 2
Diwedd Gyda
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir