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

Sut i fewnosod lluniau lluosog a'u hailfeintio ar unwaith yn Excel?

Mae'n hawdd i ni fewnosod un llun yn Excel, ond os oes angen i chi fewnosod sawl llun ar unwaith fel y gall hynny arbed llawer o amser, sut allech chi wneud?


Mewnosodwch luniau lluosog a'u hailfeintio mewn swmp yn ôl nodwedd Mewnosod Llun

Gallwn fewnosod lluniau lluosog mewn swmp gan y nodwedd Lluniau (Mewnosod) yn Excel, ac yna eu hailfeintio ar yr un pryd. Gwnewch fel a ganlyn:

1. Yn y daflen waith, cliciwch Mewnosod > Llun.

2. Yn y dialog Mewnosod Lluniau, agorwch y ffolder sy'n cynnwys lluniau y byddwch chi'n eu mewnosod, dewiswch luniau lluosog yn ôl yr angen, a chliciwch ar y Mewnosod botwm. Gweler y screenshot:
Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o luniau nad ydynt yn gyfagos trwy eu clicio fesul un; daliad Symud allwedd, gallwch ddewis sawl llun cyfagos gyda chlicio'r llun cyntaf a'r un olaf.

Nawr mae lluniau'n cael eu mewnosod mewn swmp a'u pentyrru yn y daflen waith.

3. Cadwch y lluniau hyn wedi'u dewis, a'u hailfeintio mewn swmp trwy roi rhif newydd i'r ddau Lled ac uchder blychau yn y Maint grŵp ar y fformat tab. Gweler y screenshot:

Nawr mae'r holl luniau sydd wedi'u mewnosod yn cael eu newid i'r un maint ar yr un pryd.

4. Ar hyn o bryd mae angen i chi symud pob llun â llaw ar wahân i le ffit.

Nodyn: Os oes dwsinau o luniau yn pentyrru, bydd yn cymryd llawer o amser eu symud â llaw i ffitio lleoedd.

Swp mewnosodwch luniau lluosog sy'n cyd-fynd â chynnwys celloedd yn Excel

Mae Cydweddu Lluniau Mewnforio nodwedd o Kutools for Excel, yn offeryn gwych sy'n gallu swpio mewnforio a mewnosod lluniau lluosog yn seiliedig ar gynnwys celloedd, ac ailfeintio lluniau wedi'u mewnforio yr un fath â maint y gell neu i'r maint penodedig yn hawdd. Nodwedd Llawn Am Ddim Treial 30-diwrnod!
paru lluniau wedi'u mewnforio 01

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

Mewnosodwch luniau lluosog a'u hailfeintio mewn swmp gydag OneNote

Er mwyn osgoi symud pentyrru lluniau fesul un, mae'r dull hwn yn cyflwyno tric arall i fewnosod sawl llun gyda chymorth OneNote. Gwnewch fel a ganlyn:

1. Lansio OneNote, a chreu tudalen newydd. Ac yna cliciwch Mewnosod > Llun.

2. Yn y dialog Mewnosod Lluniau, agorwch y ffolder sy'n cynnwys lluniau y byddwch chi'n eu mewnosod, dewiswch luniau lluosog yn ôl yr angen, a chliciwch ar y Mewnosod botwm. Gweler y screenshot:
Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o luniau nad ydynt yn gyfagos trwy eu clicio fesul un; daliad Symud allwedd, gallwch ddewis sawl llun cyfagos gyda chlicio'r llun cyntaf a'r un olaf.

doc mewnosodwch luniau lluosog OneNote 032

3. Gwasgwch Ctrl + A allweddi i ddewis yr holl luniau a fewnosodwyd yn yr OneNote, ac yna pwyswch Ctrl + C allweddi i'w copïo.

4. Ewch i'r daflen waith yn Excel, a gwasgwch Ctrl + V allweddi i gludo'r lluniau yn y daflen waith. Nawr mae'r holl luniau wedi'u pastio'n fertigol fel y dangosir y llun chwith.

5. Dewiswch unrhyw un o'r lluniau, a gwasgwch Ctrl + A allweddi i ddewis pob un ohonynt. Yna newid maint y lluniau mewn swmp trwy roi rhifau newydd i'r ddau Lled ac uchder blychau yn y Maint grŵp ar y fformat tab. Gweler y screenshot:

Nawr mae'r holl luniau penodedig yn cael eu mewnosod yn Excel a'u newid maint i'r un maint mewn swmp.


Mewnosodwch luniau lluosog yn Excel gyda chod VBA

Gyda'r cod VBA canlynol, gallwch fewnosod lluniau lluosog i mewn i ffeil ffeil Excel fesul cell.

1. Dewiswch y gell gyntaf o ystod cyrchfan rydych chi am fewnosod lluniau.

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

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

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Yna pwyswch y F5 allwedd i redeg y cod hwn.

5. Yn y dialog Agored, agorwch y ffolder sy'n cynnwys y lluniau rydych chi am eu mewnosod, dewiswch sawl llun y byddwch chi'n eu mewnosod, a chliciwch ar y agored botwm. Ac mae'r holl luniau a ddewiswyd wedi'u mewnforio i'ch dewis yn seiliedig ar faint y gell. Gweler y screenshot:


Mewnosodwch luniau lluosog a'u haddasu'n awtomatig gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel'S Mewnforio Lluniau gall cyfleustodau eich helpu i fewnosod sawl llun yn Excel yn gyflym yn seiliedig ar faint y gell neu faint y llun. Gallwch chi nodi uchder a lled y lluniau yn ôl yr angen hefyd.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

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

2. Yn y Mewnforio Lluniau blwch deialog, gwnewch fel a ganlyn:
(1) Nodwch drefn arddangos lluniau o'r Gorchymyn mewnforio rhestr ostwng, gallwch ddewis Llenwch gell yn fertigol ar ôl cell or Llenwch gell yn llorweddol ar ôl y gell.
(2) Cliciwch Ychwanegu botwm i ddewis y ffeiliau delwedd neu'r ffolder i ychwanegu'r lluniau i'r rhestr Lluniau. A bydd yr holl luniau a ddewiswyd gennych yn cael eu rhestru yn y blwch rhestr.
(3) Cliciwch y Maint mewnforio botwm;

3. Nawr yn y Mewnforio Maint Llun deialog, gallwch ddewis maint y llun sy'n cyfateb i'ch angen. Gweler y screenshot:

4. Ar ôl nodi maint y llun, cliciwch OK i gau'r ymgom hon, ac yn ôl i'r Mewnforio Lluniau deialog, cliciwch mewnforio botwm i fewnforio'r delweddau.

5. Yn y blwch deialog Mewnforio Lluniau newydd, dewiswch y gell gyntaf o ystod cyrchfan y byddwch yn mewnosod lluniau, a chliciwch ar y OK botwm.

Ar hyn o bryd, mae'r holl luniau a ddewiswyd gennych wedi'u mewnosod yn eich celloedd o'r gell weithredol yn fertigol neu'n llorweddol. Gweler y llun ar y dde:

Mae Mewnforio Lluniau mae nodwedd o Kutools for Excel wedi'i gynllunio i fewnosod swp o luniau ar yr un pryd â maint celloedd, maint penodedig, neu feintiau lluniau eu hunain yn Excel. Cael Treial Am Ddim!


Mewnosodwch luniau lluosog sy'n cyfateb â'u henwau â Kutools ar gyfer Excel

Mae Kutools for Excel hefyd yn cefnogi dramatig Cydweddu Lluniau Mewnforio nodwedd i gyd-fynd â lluniau a chynnwys celloedd a mewnosod lluniau wedi'u paru mewn swmp yn Excel yn unig.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

1. Dewiswch eich celloedd enw llun rydych chi am fewnosod eu lluniau paru, a chlicio Kutools Byd Gwaith > Mewnforio / Allforio > Cydweddu Lluniau Mewnforio. gweler y screenshot:

2. Yn y blwch deialog Match Import Pictures sydd wedi'i popio allan, gwnewch fel a ganlyn:
(1) Nodwch drefn arddangos lluniau o'r Gorchymyn mewnforio rhestr ostwng;
(2) Cliciwch Ychwanegu botwm i ychwanegu'r lluniau i'r blwch rhestr lluniau. Er gwybodaeth, dim ond lluniau wedi'u paru a restrir.
(3) Yna cliciwch Maint Mewnforio botwm.

3. Nawr yn y Mewnforio Maint Llun deialog, gallwch ddewis maint y llun sy'n cyfateb i'ch angen, a chliciwch ar y Ok botwm. Gweler y screenshot:

4. Nawr dych chi'n dychwelyd i'r Mewnforio Lluniau deialog, cliciwch mewnforio botwm i fewnforio'r delweddau.

5. Yn y dialog Match Import Pictures, nodwch y gell gyntaf o ystod cyrchfan y byddwch yn mewnosod lluniau, a chliciwch ar y OK botwm. Gweler y screenshot:

Hyd yn hyn, mae'r holl luniau wedi'u mewnosod yn y celloedd ar sail eu henwau cymharol. Gweler y llun ar y dde:

Mae Cydweddu Lluniau Mewnforio gall nodwedd o Kutools for Excel helpu defnyddwyr Excel i hidlo lluniau yn gyflym yn seiliedig ar werthoedd celloedd ac yna mewnosod y lluniau hyn mewn swmp. Yn ogystal, gellir newid maint y lluniau paru hyn i'r maint penodedig neu faint y gell yn awtomatig. Cael Treial Am Ddim!


Demo: Mewnosodwch sawl llun a'u hailfeintio ar unwaith yn Excel

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad mewn 30 diwrnod. Treial Am Ddim Nawr!      Prynu Nawr!


Erthyglau perthnasol


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 (46)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cyfarwyddiadau gyda'r pennawd : Mewnosod lluniau lluosog i Excel gyda chod VBA yn syml anhygoel gyflym ac effeithiol !!! mae hwn yn ddewis arall da i brynu a gosod ategion. Dyma fy sylw cyntaf ar-lein!! clod!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, gallaf ddefnyddio'r modiwl InsertPictures ac mae'n gweithio'n iawn cyn belled â jpg. Fodd bynnag, nid yw am weithio i PNG. Allwch chi roi cyngor os gwelwch yn dda? Cofion, Lawrence
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y pwnc cyntaf "Mewnosod lluniau lluosog yn Excel gyda chod VBA", sut mae mewnosod un llun mewn dwy gell. er enghraifft, bydd y llun cyntaf yn cael ei fewnosod i gell A1 ac A2, bydd yr ail lun yn cael ei fewnosod i gell A3 ac A4 ac yn y blaen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cefnogaeth dda i Excel...rydych chi'n help mawr i arbed amser. diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Post Gwych! Ond cefais ffyrdd eraill o wneud yr un peth..... ============================ =========== Is ipic() Dim i Fel Cyfanrif Ar gyfer i = 2 I 10 Celloedd(i, 1). Dewiswch Dim picname Fel Llinynnol picname = Cells(i, 2) ActiveSheet.Pictures. Mewnosod ("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Dewis Gyda Dewis .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Diwedd Gyda'r Ystod Nesaf ("a1").Dewis Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes fersiwn o Kuttools ar gyfer Mac?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl addasu'r cod vba hwnnw i fewnosod 4 llun mewn patrwm tebyg i grid fel hyn: pic1 yn A1, pic2 yn A2, pic3 yn B1 a pic4 yn B2? Tanciau!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nevermind wnes i ddarganfod sut i wneud e :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A allech chi rannu'r cod wedi'i addasu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-InsertPictures() 'Diweddariad 20140513 Dim PicList() Fel Amrywyn Dim PicFformat Fel Llinyn Dim Rng Fel Ystod Dim sShape Fel Siâp Ar Gwall Ail-ddechrau Nesaf PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndexell = Application.Active IsArray(PicList) Yna xRowIndex = Application.ActiveCell.Row Ar gyfer lLoop = LBound(PicList) I UBound(PicList) Gosod Rng = Celloedd(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(LueLoop), msoCTList(PicList) , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Diwedd Nesaf Os Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fyddech cystal â fy helpu i addasu'r cod i fewnosod y golofn a'r rhes gyfun. Is-InsertPictures() 'Diweddariad 20140513 Dim PicList() Fel Amrywyn Dim PicFformat Fel Llinyn Dim Rng Fel Ystod Dim sShape Fel Siâp Ar Gwall Ail-ddechrau Nesaf PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=Gwir) xColIndexell = Application.Active. Colofn Os IsArray(PicList ) Yna xRowIndex = Application.Act iveCell.Row Ar gyfer lLoop = LBound(PicList) I UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Diwedd Nesaf Os Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dewiswch y celloedd a'u newid maint yn ôl lled ac uchder yn unol â'ch anghenion... os oes gennych ddeg llun dewiswch ddeg cell neu fwy dewiswch fwy..!! yna pwyswch Alt+F11 ac yna cliciwch MEWNOSOD YNA cliciwch MODIWL INA LUDO'R COD CANLYNOL FEL Y MAE.. Sub InsertPictures() 'Diweddariad 20140513 Dim PicList() Fel Amrywiad Dim PicFformat Fel Llinynnol Dim Rng Fel Ystod Dim sShape Fel Siâp Ar Gwall Ail-ddechrau Nesaf PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=Gwir) xColIndex = Application.ActiveCell.Column Os IsArray(PicList) Yna xRowIndex = Application.ActiveCell.Row Ar gyfer lLoop = LBound(PicList) I UBound(PicList) I UBound(PicList) Set Rng xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex = 1 Nesaf Diwedd Y Diwedd Is AF WASG CÔD UCHOD F5 .. YNA DEWISWCH Y FFEILIAU O'R CYFRIFIADUR LLE BYDDANT BOB UN. UPTO UR ANGEN. YNA OS NAD YDYCH WEDI ARBED Y LLYFR GWAITH BYDD YN GOFYN AM EI ARBED. OS YDYCH EISOES WEDI EI ARBED. YNA SWYDD UR YW GOBAITH HYN HELPU .. Ali..!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, mae'n gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Excel Masters, mae gen i 2 ddalen excel. Un gyda mwy na chant o luniau a disgrifiad o'r llun yn y gell nesaf iddo. Mae'n debyg bod y ddalen arall ar ôl dewis wedi gadael gyda 40 disgrifiad ohoni. Sut alla i drosglwyddo'r lluniau i'r daflen hon yn unol â'm dewis. Diolch al
Lleihawyd y sylw hwn gan y safonwr ar y wefan
neu rydych chi'n defnyddio delwedd-xls yn uniongyrchol . gyda'r atodiad Excel hwn gallwch fewnosod nifer anghyfyngedig o luniau i mewn i gell Excel, neu fel sylw. mae hefyd yn newid maint eich Lluniau. ac mae'n bosibl archebu a hidlo eich dalen Excel, gan gynnwys y Lluniau !
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ddefnyddiwr Mac ac unwaith i mi gopïo'r cod i'r modiwl newydd a'i redeg does dim byd yn digwydd. A oes rhywbeth y mae'n rhaid i mi ei wneud yn mac er mwyn rhedeg y cod VBA? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfynbris]neu rydych chi'n defnyddio delwedd-xls yn uniongyrchol . gyda'r atodiad Excel hwn gallwch fewnosod nifer anghyfyngedig o luniau i mewn i gell Excel, neu fel sylw. mae hefyd yn newid maint eich Lluniau. ac mae'n bosibl archebu a hidlo eich dalen Excel, gan gynnwys y Lluniau !Gan Armin[/dyfyniad] [dyfyniad] Mae'r cyfarwyddiadau gyda'r pennawd : Mae mewnosod lluniau lluosog yn Excel gyda chod VBA yn syml anhygoel, cyflym ac effeithiol !!! mae hwn yn ddewis arall da i brynu a gosod ategion. Dyma fy sylw cyntaf ar-lein!! clod!Gan Rahul Gupta[/quote] Rhoddais gynnig ar hyn ac mae'n ymddangos ei fod yn gweithio'n iawn - ond ni allwch archebu na hidlo'r rhestr Excel gan gynnwys y lluniau. hefyd nid yw'r lluniau wedi'u graddio'n gymesur. felly prynais image-xls - cost ychydig, ond a yw'r cyfan sydd ei angen arnaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Unrhyw reswm pam na fyddai "Sub InsertPictures()" yn gweithio yn Excel 2003? Rwyf eisoes wedi ychwanegu'r cyfeiriad at Microsoft.Scripting.Runtime Diolch ymlaen llaw Gilberto
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n help mawr i mi. Mae'n waith mor braf...... Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais y cod ar fy nhaenlen ac fe weithiodd yn berffaith. Tan i mi geisio gwneud hidlydd. Darganfyddwch y bydd y llun olaf bob amser yn cael ei ddangos ar ganlyniad yr hidlydd. unrhyw un sy'n gallu helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gan ddefnyddio isod ni all rhaglen VBA fewnosod y llun yn y gell gyfun, Is InsertPictures() 'Diweddariad 20140513 Dim PicList() Fel Amrywiad Dim PicFformat Fel Llinyn Dim Rng Fel Ystod Dim sShape Fel Siâp Ar Gwall Ail-ddechrau PicList Nesaf = Application.Get OpenFilename(Pi cFormat , MultiSelect:=Gwir) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Yna xRowIndex = Application.Act iveCell.Row Ar gyfer lLoop = LBound(PicList) I UBound(PicList) Set Rng = Cells Set = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Diwedd Nesaf Os Diwedd Is Rhowch gyngor i mi i addasu'r VBA .
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei i gyd, mae hyn yn wych! Rwyf wedi bod yn dilyn eich tiwtorialau ers peth amser bellach. Yr hyn yr oeddwn yn gobeithio y gallech fy helpu ag ef yw, sut mae newid hyn o gludo'r delweddau i lawr colofn i ar draws rhes? A sut alla i ychwanegu'r "Enw Ffeil Llawn (hy enghraifft_image.jpg)" i'r Rhes uwch ei ben. Rhes 'A' : "Filename.jpg" Rhes 'B' : "Delwedd Mân-lun" Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, mewnosododd Ive y lluniau gan ddefnyddio fy nghod VBE fy hun. A nawr rydw i wedi ceisio ei rannu gyda'r lleill, yn anffodus dydyn nhw ddim yn gallu gweld y lluniau.....byddwn yn ddiolchgar pe gallai unrhyw un ddweud wrthyf beth ydw i'n ei golli. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn bron yn gweithio ar gyfer fy anghenion. Mae gen i 200 o ddelweddau, mae angen i bob delwedd fynd ar ei ddalen ei hun. Sut mae mynd ati i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i addasu'r cod canlynol fel bod lluniau'n cael eu poblogi mewn ystod ddethol o gelloedd ar draws colofnau a rhesi lluosog yn hytrach nag mewn celloedd olynol mewn rhesi olynol yn yr un golofn? Is-InsertPictures() 'Diweddariad 20140513 Dim PicList() Fel Amrywyn Dim PicFformat Fel Llinyn Dim Rng Fel Ystod Dim sShape Fel Siâp Ar Gwall Ail-ddechrau Nesaf PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=Gwir) xColIndexell = Application.Active. Colofn Os IsArray(PicList ) Yna xRowIndex = Application.Act iveCell.Row Ar gyfer lLoop = LBound(PicList) I UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Diwedd Nesaf Os Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir