Excel - makro za vstavljanje slik v delovni list

Težava
Rešitev

Težava

Poskušam v Excelov stolpec vstaviti slike z uporabo makra, ki odcepi ime datoteke iz celice B2 in vstavi sliko v celico A2. Na primer: če B2 vsebuje N235, bo slika, ki bo vstavljena v A2, N235.jpg iz podane poti v Macro. To deluje v redu EXCEPT, ko v mapi ni slike z istim imenom kot v mapi.

Sem dobil runtime napake 1004 in makro ustavi in ne more izpolniti slike po tej celici.

Rešitev

 Pod slika ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Medtem ko (celice (lThisRow, 2) "")
pasteAt = lThisRow
Celice (pasteAt, 1) .Izberite 'Tu se bo vstavila slika
picname = Celice (lThisRow, 2) 'To je ime slike
present = Dir ("C: Uporabniki Administrator Desktop", LC, & picname & ".jpg")
Če je prisoten "" Potem
ActiveSheet.Pictures.Insert ("C: Uporabniki Administrator Namizje LC" & picname & ".jpg"). Izberite "Pot do mesta, kjer so shranjene slike
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'To spremeni velikost slike
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Z izbiro
Levo = Razpon ("A6"). Levo
".Top = Razpon (" A6 "). Na vrh
Levo = Celice (pasteAt, 1)
.Top = Celice (pasteAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 130 #
.ShapeRange.Rotation = 0 #
Končaj s
Drugače
Celice (pasteAt, 1) = "Ni najdene slike"
End If
lThisRow = lThisRow + 1
Loop
Razpon ("A10")
Application.ScreenUpdating = True
Izhod Sub
ErrNoPhoto:
MsgBox "Ne morem najti fotografije" "Pokaže okno s sporočilom, če slike ni mogoče najti
Izhod Sub
Razpon ("B20")
End Sub