Skip i'r prif gynnwys

Sut i ddisodli testun â lluniau cyfatebol yn Excel?

doc yn disodli testun â delwedd 1 2 doc yn disodli testun â delwedd 2

Gadewch i ni ddweud, mae gen i restr o enwau cynnyrch mewn taflen waith, ac mae ffolder sy'n cynnwys y lluniau cyfatebol o enwau'r cynnyrch yn y ddisg gyfrifiadurol. Nawr, mae angen i mi ddod o hyd i enwau'r cynnyrch a'u delweddau cymharol yn Excel heb eu mewnosod fesul un fel y sgrinluniau canlynol a ddangosir. A oes unrhyw atebion da a chyflym i ddelio â'r swydd hon yn Excel?

Amnewid testun gyda lluniau cyfatebol gyda chod VBA

Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel


Amnewid testun gyda lluniau cyfatebol gyda chod VBA

Fel rheol, nid oes unrhyw ffordd hawdd ac uniongyrchol inni fewnosod y lluniau cymharol yn seiliedig ar y llinyn testun yn Excel, ond, gall y cod VBA canlynol eich helpu i ddisodli'r testun gyda'i lun cyfatebol.

1. Pwyswch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch a gludwch y cod VBA canlynol i'r modiwl ffenestr.

Cod VBA: disodli testun gyda lluniau cyfatebol

Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        If Dir(xPath & Rng.Value & ".jpg") <> "" Then
            ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Left = Rng.Left
                .Top = Rng.Top
                .Width = Rng.Width
                .Height = Rng.Height
            End With
            Rng.ClearContents
        Else
            Rng.Value = "N/A"
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod hwn, a dewis yr ystod ddata rydych chi am fewnosod y lluniau cyfatebol yn y dialog popped out, gweler y screenshot:

doc yn disodli testun â delwedd 3

4. Ac yna cliciwch OK botwm, bydd y testun gwreiddiol yn disodli'r holl ddelweddau cyfatebol sydd â'r un maint â'r celloedd, gweler sgrinluniau:

doc yn disodli testun â delwedd 4 2 doc yn disodli testun â delwedd 5

Nodiadau:

1. Yn y cod uchod, mae angen i chi newid llwybr ffolder y lluniau i'ch angen chi, xPath = "C: \ Defnyddwyr \ dt \ Penbwrdd \ Ffrwythau \".

2. Os nad oes lluniau cyfatebol i gyd-fynd â'r testun, bydd y gwall Amherthnasol yn ei arddangos.


Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel

Gan fod y cod uchod yn anodd ei feistroli, yma, byddaf yn cyflwyno teclyn hawdd a phwerus i chi - Kutools ar gyfer Excel, Gyda'i Cydweddu Lluniau Mewnforio nodwedd, gallwch chi fewnosod y lluniau yn gyflym ac yn gyfleus i gyd-fynd â'r rhestr o destun.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Cydweddu Lluniau Mewnforio, gweler y screenshot:

2. Yn y Cydweddu Lluniau Mewnforio blwch deialog, cliciwch doc disodli botwm testun 1 botwm i ddewis yr ystod rydych chi am ei chyfateb â'r lluniau, gweler y screenshot:

doc yn disodli testun gyda delwedd 7 7

3. Yna yn y Cydweddu Lluniau Mewnforio deialog, cliciwch Ychwanegu > Ffeil or Ffolder i ddod o hyd i'r lluniau rydych chi am eu mewnosod, gweler y screenshot:

doc yn disodli testun gyda delwedd 8 8

4. Ar ôl mewnosod y delweddau cyfatebol, yna cliciwch Maint mewnforio botwm, yn y canlynol Mewnforio Maint Llun deialog, nodwch un opsiwn ar gyfer maint eich llun. Gweler y screenshot:

doc yn disodli testun gyda delwedd 9 9

5. Yna cliciwch OK > mewnforio, ac yna dewiswch un gell i ddod o hyd i'ch delweddau cymharol o'r rhai sydd wedi'u popio allan Cydweddu Lluniau Mewnforio deialog (gallwch hefyd ddewis cell wreiddiol y testun), gweler y screenshot:

doc yn disodli testun gyda delwedd 10 10

6. Ac yna cliciwch OK botwm, mae'r holl luniau sy'n cyd-fynd â'r testun wedi'u mewnosod yn y daflen waith, gweler y screenshot:

doc yn disodli testun gyda delwedd 11 11

Nodiadau:

1. Os nad oes lluniau wedi'u paru â'r testun, ni fydd y gell yn mewnosod unrhyw beth.

2. Os ydych chi am fewnosod lluniau yn llorweddol, gallwch wirio Llenwch gell yn llorweddol ar ôl y gell yn y Gorchymyn mewnforio adran hon.

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Demo: Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations