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

Sut i drosi URLau delwedd yn ddelweddau go iawn yn Excel?

doc url i img 1

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?

Trosi URLau'r ddelwedd yn ddelweddau gwirioneddol gyda chod VBA

Trosi URLau'r ddelwedd yn ddelweddau go iawn gyda Kutools ar gyfer Excel


Trosi URLau'r ddelwedd yn ddelweddau gwirioneddol gyda chod VBA

Gall y cod VBA canlynol eich helpu i echdynnu'r delweddau go iawn o gyfeiriadau URL y ddelwedd yn gyflym, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Trosi URLau'r ddelwedd yn ddelweddau go iawn:

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Nodiadau: 

  • 1. Yn y cod uchod, A2: A5 yw'r ystod o gelloedd sy'n cynnwys y cyfeiriadau URL rydych chi am echdynnu'r delweddau, dylech chi newid cyfeiriadau celloedd i'ch angen.
  • 2. Gyda'r cod hwn, ni allwch nodi maint y delweddau a dynnwyd i'ch angen.
  • 3. Dim ond y delweddau actural y gall y cod uchod eu tynnu i'r celloedd ar wahân i'ch colofn URL, ni allwch nodi cell i allbwn y delweddau.
  • 4. Dylai fod gennych rywfaint o wybodaeth sylfaenol am y cod, os bydd unrhyw gymeriad yn cael ei fethu neu'n anghywir, ni fydd y cod yn cael ei weithredu'n llwyddiannus.

3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl luniau cyfatebol wedi'u tynnu o'r URLau delwedd i'r golofn gyfagos ar unwaith, a bydd y delweddau'n cael eu gosod yng nghanol eich celloedd penodol, gweler y screenshot:

doc url i img 2


Trosi URLau'r ddelwedd yn ddelweddau go iawn gyda Kutools ar gyfer Excel

Os nad ydych chi'n gyfarwydd â'r cod VBA neu eisiau unioni cyfyngiad y cod uchod, Kutools ar gyfer Excel's Mewnosod Lluniau ar ffurf Llwybr (URL) gall nodwedd eich helpu i fewnosod y delweddau cyfatebol yn gyflym yn seiliedig ar y cyfeiriadau URL neu'r llwybr penodol yn eich cyfrifiadur fel islaw'r screenshot a ddangosir. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

Nodyn:I gymhwyso hyn Mewnosod Lluniau ar ffurf Llwybr (URL), 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 ar ffurf Llwybr (URL), yn y blwch deialog popped out, gosodwch y gweithrediadau canlynol, gweler sgrinluniau:

doc url i img 3 doc url i img 4

2. Yna, cliciwch Ok botwm, a bydd y lluniau'n cael eu tynnu o'r URLau, gweler y screenshot:

doc url i img 1

Cliciwch i Lawrlwytho a Kutools treial am ddim ar gyfer Excel Now!


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 (61)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allech chi newid yr "ailddechrau ar gamgymeriad nesaf" i rywbeth a fydd yn aros nes bod gan Google Chrome amser i agor y llun? Ceisiais y cod hwn ac mae'n gweithio, ond mae rhai o'r lluniau'n cael eu gludo sawl rhes isod lle dylen nhw, felly rwy'n cymryd nad yw'r datganiad "ar gamgymeriad" yn rhoi digon o amser iddo. Os ydych chi'n meddwl y gallai fod yn rhywbeth arall neu os oes gennych chi unrhyw awgrymiadau eraill, rydw i'n agored i'w glywed. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn help mawr, ty gymaint
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi rhoi cynnig ar y fformiwla, ond nid yw'n ymddangos ei bod yn gweithio. A fyddai'n rhaid iddo wneud rhywbeth gyda'r fersiwn o Excel (mae gen i'r fersiwn diweddaraf, serch hynny) rwy'n gwerthfawrogi'ch ateb
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa fater ydych chi'n ei gael?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall amser rhedeg '1004': Methu cael priodwedd mewnosod y dosbarth Lluniau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio i mi ychwaith. Mae gennyf Excel 2013 ac yn syml, mae angen darn syml o god arnaf a fydd yn mewnosod delweddau ar wahân i'r urls sydd mewn colofn yn fy nhaenlen. Mae pob datrysiad unigol rydw i wedi rhoi cynnig arno sydd ar gael trwy Google Search neu trwy YouTube wedi gwneud gwall gwerth mewnosod lluniau. Beth ydw i'n ei wneud o'i le??? A yw'r urls i fod i DDIM yn hypergysylltiadau? Ydyn nhw i fod i fod yn hypergysylltiadau? Ydw i fod i nodi'r amrediad colofnau y mae'r allbwn yn mynd iddo? Ni allaf ddod o hyd i set o gyfarwyddiadau syml i'w dilyn yn unrhyw le, helpwch. Pan fyddaf yn defnyddio EICH cod, rwy'n cael dosbarth "Methu cael eiddo mewnosod y Lluniau":
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem ac mae'n troi allan mae angen i chi wirio eich url. os yw'n HTTPS mae hynny'n golygu ei fod yn gysylltiad diogel ac ni fydd VBA yn gallu ei echdynnu. os yw'n HTTP rheolaidd ni ddylai fod unrhyw broblem
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Gweithiodd i mi Sut ydw i'n newid/addasu'r gystrawen i arddangos urlau delwedd sydd wedi'u diogelu gan gyfrinair
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb, rwyf wedi addasu'r cod hwn fel ei fod yn gweithio i'r ystod a ddewiswyd yn lle mynd i mewn i'r ystod benodol, Fodd bynnag, a all unrhyw un awgrymu imi sut i addasu'r cod hwn i gael y ddelwedd yng nghanol y gell. Ar hyn o bryd mae'r ddelwedd yn cael ei dangos yn y gornel chwith uchaf

Is-URLPictureInsert()

Dim Pshp Fel Siâp

Dim rCell Fel Ystod

Ar Ail-ddechrau Gwall Nesaf

Application.ScreenUpdating = Anghywir

Ar gyfer Pob Cell Mewn Detholiad

filenam = rCell ActiveSheet.Pictures.Insert(filenam).Select

Gosod Pshp = Selection.ShapeRange.Item(1)

Gyda Pshp

.LockAspectRatio = msoTrue

.Lled = 100

.Uchder = 100

.Torrwch

Diwedd Gyda

Celloedd(rCell.Row, rCell.Column + 1).PasteSpecial

Next Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ANHYGOEL! mae hyn mor wych! Cefais 350 rhes o hypergyswllt a chymerodd dim ond 5 munud i dynnu pob delwedd!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, a all unrhyw un atodi dolen o ddalen excel gyda chod macro wedi'i alluogi fel y gallaf lawrlwytho ac arbrofi, rwy'n newydd i VB ac mae gwir angen i mi wneud hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I mi, y cyfan sy'n ymddangos ym mhob cell yw enw'r dull. Maen nhw i gyd yn dweud "Is-URLPictureInsert()"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n berffaith ond all unrhyw un fy helpu i ychwanegu rhywbeth i wirio a yw'r ddelwedd yn bodoli ac os nad yw, postio testun yn y gell fel "Image unavailable" ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn Excel 2010 roedd yn rhaid i mi ychwanegu'r datganiadau hyn

Dim Rng Fel Ystod
Dim cell Fel Ystod
Dim ffeilnam Fel Llinynnol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er mwyn cael hwn i weithio yn Excel 2010 roedd yn rhaid i mi ychwanegu'r datganiadau hyn.


Dim Rng Fel Ystod
Dim cell Fel Ystod
Dim ffeilnam Fel Llinynnol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i redeg hwn fel ei fod ar draws rhes yn lle colofn? Rwyf wedi ceisio newid yr amrediad a lleoliad terfynol y ddelwedd yn syml ond dim ond y gell gyntaf y mae'n ei chynhyrchu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Taylor,
Efallai y gall y cod VBA canlynol eich helpu i dynnu'r lluniau go iawn mewn URLs rhes:


Is-URLPictureInsert()
Dim Pshp Fel Siâp
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod Rng = ActiveSheet.Range("A1:E1")
Ar gyfer Pob cell Yn Rng
ffeilnam = cell
ActiveSheet.Pictures.Insert(filenam).Dewiswch
Gosod Pshp = Selection.ShapeRange.Item(1)
Gyda Pshp
.LockAspectRatio = msoTrue
.Lled = 100
.Uchder = 100
.Torrwch
Diwedd Gyda
Celloedd(cell.Row + 1, cell.Column).PasteSpecial
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End

Rhowch gynnig arni, gobeithio y gall eich helpu. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi guys,
Byddai wrth ei fodd yn cael hwn i weithio ond pan fyddaf yn copïo hwn yn VBA a chlicio ar redeg dim ond y testun hwn y byddaf yn ei gael:
Is-URLPictureInsert()
A allwch chi fy helpu i gael y llun bach?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Wrth gymhwyso'r cod, gallwch newid lled ac uchder maint y llun i gyd-fynd â'ch celloedd.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych ar gyfer tynnu delweddau, ond maent yn cael eu rhoi ar hap ac nid yn y celloedd disgwyliedig... Excel 2016 o Office365...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, DKcrm,
Diolch am eich sylw, mae'r cod yn yr erthygl hon wedi'i ddiweddaru, rhowch gynnig ar yr un newydd, gobeithio y gall eich helpu chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich post. Sut alla i gael y lluniau yng nghanol y gell. Gyda'r codau cyfredol mae'r lluniau'n cael eu dangos yn y gornel chwith uchaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Khan,
gall y cod VBA canlynol eich helpu i dynnu'r llun a'u rhoi yng nghanol y celloedd, rhowch gynnig arni.

Is-URLPictureInsert()
Dim Pshp Fel Siâp
Dim xRg Fel Ystod
Dim xCol Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod Rng = ActiveSheet.Range("A2:A6")
Ar gyfer Pob cell Yn Rng
ffeilnam = cell
ActiveSheet.Pictures.Insert(filenam).Dewiswch
Gosod Pshp = Selection.ShapeRange.Item(1)
Os nad yw Pshp yn Ddim Yna Ewch i'r labordy
xCol = cell.Column+1
Gosod xRg = Celloedd(cell.Row, xCol)
Gyda Pshp
.LockAspectRatio = msoFalse
Os .Width > xRg.Width Yna .Width = xRg.Width * 2 / 3
Os .Uchder > xRg.Height Yna .Uchder = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Chwith = xRg.Left + (xRg.Width - .Width) / 2
Diwedd Gyda
labordy:
Gosod Pshp = Dim byd
Ystod ("A2"). Dewiswch
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Methu â chael hwn i weithio a allwch chi ddangos y cod gorffenedig ar gyfer y cais hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Rwyf am lawrlwytho'r delweddau o'r URL's (Colofn A) mewn ffolder benodol ac ailenwi'r un delweddau gyda chod / rhif sydd yno yng Ngholofn B.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vipin,
Er mwyn cadw delweddau'r URL i mewn i ffolder a'u hail-enwi gyda'r enwau newydd yng Ngholofn B, efallai y bydd y cod VBA canlynol yn eich helpu chi:

Nodyn: Mae Colofn A yn cynnwys y cyfeiriadau URL ac mae gan Colofn B yr enwau newydd.

#Os VBA7 Yna
Datganiad Preifat Swyddogaeth PtrSafe URLDownloadToFile Lib "urlmon" Alias ​​"URLDownloadToFileA" (ByVal pCaller Cyhyd, ByVal szURL Fel Llinyn, ByVal szFileName Fel Llinynnol, ByVal dwReserved As Hir, ByVal lpfnCB Cyhyd) Cyhyd
#Arall
Datganiad Preifat Swyddogaeth URLDownloadToFile Lib "urlmon" Alias ​​"URLDownloadToFileA" (ByVal pCaller Cyhyd, ByVal szURL Fel Llinyn, ByVal szFileName Fel Llinynnol, ByVal dwReserved As Hir, ByVal lpfnCB Cyhyd) Cyhyd
#Diwedd Os
Is-URLPictureInsert()
Dim I Fel Cyfanrif
Dim xStr Fel Llinyn
Dim xFd Fel FfeilDialog
Dim xArr, xFdItem Fel Amrywiad
Application.ScreenUpdating = Anghywir
Gosod xFd = Application.FileDialog(msoFileDialogFolderPicker)
Os xFd.Show = -1 Yna
xFdItem = xFd.SelectedItems.Item(1)
xArr = Ystod ("A2:B5").Gwerth
Ar gyfer I = 1 I UBound(xArr)
Os xArr(I, 1) <> "" Yna
xStr = Canolbarth(xArr(I, 1), InStrRev(xArr(I, 1), "."), Len(xArr(I, 1)))
URLDownloadToFile 0, xArr(I, 1), xFdItem & "\" & xArr(I, 2) & I & xStr, 0, 0
Gorffennwch Os
Digwyddiadau
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End

Rhowch gynnig arni, gobeithio y gall hyn eich helpu chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r rhan ailenwi ar golofn B yn uwchlwytho i'r ffolder ond yn ychwanegu cyfrif rhif wrth ymyl enw'r llun, sut gallaf hepgor hynny?

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, David,
Efallai y gall y cod vba isod eich helpu i echdynnu'r iimages a'u hail-enwi heb yr is-ddodiad, ceisiwch. Gobeithio y gall eich helpu!

#Os VBA7 Yna
Datganiad Preifat Swyddogaeth PtrSafe URLDownloadToFile Lib "urlmon" Alias ​​"URLDownloadToFileA" (ByVal pCaller Cyhyd, ByVal szURL Fel Llinyn, ByVal szFileName Fel Llinynnol, ByVal dwReserved As Hir, ByVal lpfnCB Cyhyd) Cyhyd
#Arall
Datganiad Preifat Swyddogaeth URLDownloadToFile Lib "urlmon" Alias ​​"URLDownloadToFileA" (ByVal pCaller Cyhyd, ByVal szURL Fel Llinyn, ByVal szFileName Fel Llinynnol, ByVal dwReserved As Hir, ByVal lpfnCB Cyhyd) Cyhyd
#Diwedd Os
Is-URLPictureInsert()
Dim I Fel Cyfanrif
Dim xStr Fel Llinyn
Dim xFd Fel FfeilDialog
Dim xArr, xFdItem Fel Amrywiad
Application.ScreenUpdating = Anghywir
Gosod xFd = Application.FileDialog(msoFileDialogFolderPicker)
Os xFd.Show = -1 Yna
xFdItem = xFd.SelectedItems.Item(1)
xArr = Ystod ("A2:B5").Gwerth
Ar gyfer I = 1 I UBound(xArr)
Os xArr(I, 1) <> "" Yna
xStr = Canolbarth(xArr(I, 1), InStrRev(xArr(I, 1), "."), Len(xArr(I, 1)))
URLDownloadToFile 0, xArr(I, 1), xFdItem & "\" & xArr(I, 2) & xStr, 0, 0
Gorffennwch Os
Digwyddiadau
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Omg!! Rydych chi newydd ddarparu gwyrth, Mae'n gweithio fel swyn. Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ystod wedi'i osod, filenam = url a newidiadau gyda phob tocyn, Pshp bob amser yn ddim. Unrhyw Syniadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio prosesydd Intel I5, windows 7 professional 64bit, Office 2016 64 bit. Rwy'n cymryd mai gosodiad yn Excel yw'r broblem. Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr.
ystod wedi'i osod, filenam = url ac yn newid gyda phob tocyn, Pshp bob amser yn ddim, URL's yn cael eu gwirio, Unrhyw Syniadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo skyyang, yn gyntaf ar gyfer swydd mor addysgiadol. Mae gennyf gwestiwn, a allech chi fy helpu os gwelwch yn dda. Gan ddefnyddio'r cod hwn o'ch un chi rydw i eisiau tynnu un llun yn unig ac rydw i eisiau ei roi mewn cell benodol. A yw'n bosibl ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Shozib,
I roi'r delweddau i unrhyw gelloedd eraill ag y dymunwch, cymhwyswch y cod VBA canlynol:

Is-URLPictureInsert1()
'Updateby Extendoffice 20180608
Dim Pshp Fel Siâp
Dim xRg Fel Ystod
Dim xCol Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Gosod Rng = Application.InputBox("Dewiswch y celloedd url:", "KuTools ar gyfer excel", Selection.Address, , , , , 8)
Os mai Rng Yw Dim Yna Gadael Is
Gosod xRg = Application.InputBox ("Dewiswch gell i roi'r ddelwedd:"", "KuTools ar gyfer excel", , , , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
I I = 1 I Rng.Count
ffeilnam = Rng(I)
ActiveSheet.Pictures.Insert(filenam).Dewiswch
Gosod Pshp = Selection.ShapeRange.Item(1)
Os nad yw Pshp yn Ddim Yna Ewch i'r labordy
xCol = cell.Column+1
Gosod xRg = xRg.Offset(I - 1, 0)
Gyda Pshp
.LockAspectRatio = msoFalse
.Lled = 80
.Uchder = 80
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Chwith = xRg.Left + (xRg.Width - .Width) / 2
Diwedd Gyda
labordy:
Gosod Pshp = Dim byd
Ystod ("A2"). Dewiswch
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb, mae'r Macro hwn yn wych. Fodd bynnag, nid yw'n ychwanegu lluniau i'r ffeil mewn gwirionedd ond dolenni sy'n cynhyrchu lluniau bob tro rwy'n agor y ffeil. Felly ni allaf gywasgu lluniau gan nad ydynt mewn gwirionedd y tu mewn i'r ffeil. A allech chi fy helpu i gadw lluniau y tu mewn i'r ffeil mewn gwirionedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Yr un cwestiwn sydd gennyf.
A oes ffordd i achub y ddelwedd yn effeithiol yn yr excel? (a heb ei gysylltu y tu allan)
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