Excel - Macro piltide lisamiseks töölehele
- Probleem
- Lahendus
Probleem
Püüan lisada pilte Exceli veergu, kasutades makro, mis võtab B2-lahtrist faili nime ja sisestab pildi A2-lahtrisse. Näiteks: kui B2 sisaldab N235-d, siis oleks kujutis, mis sisestatakse A2-sse, Nro35.jpg antud makrost. See töötab hästi, kui kaustas ei ole ühtegi pilti kaustas.- Ma saan runtime error 1004 ja Macro peatub ja ei saa pildi pärast seda lahtrit täita.
Lahendus
Sub pilt ()Dim picname kui string
Dim pasteAt kui terviklik
Dim lThisRow As Long
lThisRow = 2
Tehke ajal (lahtrid (lThisRow, 2) "")
pasteAt = lThisRow
Rakud (pasteAt, 1) .Valige 'See on koht, kus pilt sisestatakse
picname = Rakud (lThisRow, 2) 'See on pildi nimi
present = Dir ("C: kasutajad administraator töölaua LC" & picname & ".jpg")
Kui see on olemas, siis ""
ActiveSheet.Pictures.Insert ("C: kasutajad administraator töölaua LC" & picname & ".jpg"). Valige "Tee, kuhu pildid salvestatakse".
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
'See muudab pildi suurust
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '
Valikuga
'.Left = Range ("A6") Vasak
'.Top = Range ("A6")
.Left = rakud (pasteAt, 1)
.Top = Rakud (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 130 #
.ShapeRange.Rotation = 0 #
Lõpeta
Veel üks
Rakud (pasteAt, 1) = "Pilt puudub"
Lõpeta kui
lThisRow = lThisRow + 1
Loop
Vahemik ("A10")
Application.ScreenUpdating = True
Välju Sub
ErrNoPhoto:
MsgBox "Fotot ei õnnestu leida" Näitab sõnumikasti, kui pilti ei leitud
Välju Sub
Vahemik ("B20")
Lõpeta alam
Tänu rizvisale1 selle näpunäite eest.