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 lluniau wedi'u mewnosod i ffitio celloedd gyda Kutools ar gyfer Excel
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.
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:
Nodyn: Gallwch newid maint un llun yn unig un tro. Os dewiswch fwy nag un llun un tro, bydd blwch deialog rhybuddio yn ymddangos.
Newid maint lluniau 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:
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:
Cam 3: Gwiriwch Paru maint celloedd opsiwn. Yna cliciwch Ok > mewnforio i gau deialogau. Gweler y screenshot:
Nawr gallwch weld bod y lluniau'n cael eu mewnosod i ffitio'r celloedd.
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?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!