Skip i'r prif gynnwys

Sut i arddangos delweddau o ystod o lwybrau ffeiliau yn Excel?

Os oes gennych chi restr o lwybrau ffeiliau delwedd, nawr, rydych chi am arddangos y delweddau cyfatebol mewn colofn gyfagos yn seiliedig ar y llwybrau ffeiliau i gael y canlyniad screenshot canlynol. Sut allech chi ddatrys y swydd hon yn Excel yn gyflym ac yn hawdd?

Arddangos delweddau o ystod o lwybrau ffeiliau gyda chod VBA yn Excel

Arddangos delweddau o ystod o lwybr ffeiliau gyda nodwedd anhygoel


Arddangos delweddau o ystod o lwybrau ffeiliau gyda chod VBA yn Excel

Yma, gallaf gyflwyno cod VBA i'ch helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Arddangos delweddau o ystod o lwybrau ffeiliau:

Sub InsertPicFromFile()
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Ar ôl mewnosod y cod uchod, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis celloedd y llwybr ffeiliau, gweler y screenshot:

4. Yna cliciwch OK botwm, mae'r holl ddelweddau sy'n seiliedig ar lwybrau ffeiliau cyfatebol wedi'u harddangos i'r golofn nesaf fel y dangosir y llun isod:


Arddangos delweddau o ystod o lwybr ffeiliau gyda nodwedd anhygoel

Os ydych chi'n poeni gyda'r cod uchod, Kutools ar gyfer Excel yn cefnogi nodwedd ddefnyddiol - Mewnosod Lluniau o'r Llwybr (URL), gyda'r cyfleustodau pwerus hwn, gallwch fewnosod y delweddau yn gyflym yn seiliedig ar glytiau ffeiliau neu gyfeiriadau Url ar unwaith.

Awgrym:I gymhwyso hyn Mewnosod Lluniau o'r Llwybr (URL) nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

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

1. Cliciwch Kutools > Mewnosod > Mewnosod Lluniau o'r Llwybr (URL), gweler y screenshot:

2. Yn y Mewnosod Lluniau o'r Llwybr (URL) blwch deialog, gwnewch y gweithrediadau canlynol:

  • Dewiswch y rhestr o gelloedd sy'n cynnwys y llwybr ffeiliau a chell lle rydych chi am roi'r ddelwedd;
  • Yna, nodwch faint y llun rydych chi am ei ddefnyddio o dan y Maint y Llun adran hon.

3. Yna, cliciwch Ok botwm, mae'r delweddau cyfatebol wedi'u mewnosod yn y celloedd, gweler y screenshot:

Cliciwch Lawrlwythwch Kutools ar gyfer Excel a threial am ddim Nawr!


Erthyglau mwy cymharol:

  • Trosi URLau Delwedd I Ddelweddau Gwirioneddol Yn Excel
  • Os oes gennych restr o gyfeiriadau URL delwedd yng ngholofn A, ac yn awr, rydych chi am lawrlwytho'r lluniau cyfatebol o'r URLau a'u harddangos i'r golofn B gyfagos fel y llun chwith a ddangosir. Yn Excel, sut allech chi dynnu'r lluniau go iawn o'r URLau delwedd yn gyflym ac yn hawdd?
  • Tynnu Hypergysylltiadau O Ddelweddau Lluosog Yn Excel
  • Gadewch i ni ddweud, mae gennych chi restr o ddelweddau mewn taflen waith, ac mae pob delwedd yn cynnwys hyperddolen, nawr, hoffech chi dynnu'r cyfeiriadau hyperddolen go iawn o'r lluniau hyn i'w celloedd nesaf fel y dangosir y screenshot canlynol. Wrth gwrs, gallwch chi gopïo'r cyfeiriad hyperddolen o'r blwch Golygu Hyperlink fesul un, ond, bydd hyn yn cymryd llawer o amser os oes angen tynnu hypergysylltiadau lluosog.
  • Creu Rhestr Gostwng Gyda Delweddau Yn Excel
  • Yn Excel, gallwn greu rhestr ostwng gyda gwerthoedd celloedd yn gyflym ac yn hawdd, ond, a ydych erioed wedi ceisio creu rhestr ostwng gyda delweddau, hynny yw, pan gliciwch un gwerth o'r gwymplen, ei berthynas delwedd yn cael ei harddangos ar yr un pryd.

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a question - this VBA code is working for me (Excel 365 Mac v16.40), but it does not load the images into Excel until I import them all manually (and then delete them). Prior to my manual import, the script runs and then completes without an error, but without any images appearing. It's almost as if Excel can't see the destination path until I have made the path "visible" through the manual import.
Any thoughts as to what is happening here/how to solve without this workaround? Thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations