Excel - Çalışma sayfasına resim eklemek için bir Makro

Konu
Çözüm

Konu

B2 hücresinden dosya adını refrence alan ve A2 hücresine resim ekleyen bir makro kullanarak Excel sütununa resim eklemeye çalışıyorum. Örneğin: B2 N235 içeriyorsa, A2'ye eklenecek resim Makro'da verilen yoldan N235.jpg olacaktır. Bu, klasörde aynı ada sahip klasörde resim olmadığında EXCEPT iyi çalışıyor.

Bir çalışma zamanı hatası 1004 alıyorum ve Makro durur ve bu hücreden sonra resmi dolduramaz.

Çözüm

 Alt Resim ()
Dim picname, Dize Olarak
Dim pasteAt Tamsayı Olarak
DimBu Uzun
lBuRow = 2
Süre (Hücreler (1BuRow, 2) "")
pasteAt = lThisRow
Hücreler (pasteAt, 1) .Seçin 'Burası resmin ekleneceği yer
picname = Hücreler (lThisRow, 2) 'Bu resim adı
present = Dir ("C: \ Kullanıcılar \ Yönetici \ Masaüstü \ LC \" & resim adı & ".jpg")
Varsa "" Sonra
ActiveSheet.Pictures.Insert ("C: \ Users \ Yönetici \ Desktop \ LC \" & picname & ".jpg"). 'Resimlerin saklandığı yolu seçin
'' '' ' ''' '' ' '' ''' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''' '' '''
'Bu resmi yeniden boyutlandırıyor
'' '' ' ''' '' ' '' ''' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''' '' '''
Seçimi ile
'.Left = Aralık ("A6") Sol
'.Top = Aralık ("A6").
.Left = Hücreler (pasteAt, 1) .Left
.Top = Hücreler (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 130 #
.ShapeRange.Rotation = 0 #
İle bitmek
Başka
Hücreler (pasteAt, 1) = "Resim Bulunamadı"
Bittiğinde
lThisRow = lThisRow + 1
döngü
Range ( "A10"). Seçiniz
Application.ScreenUpdating = Doğru
Alttan Çık
ErrNoPhoto:
MsgBox "Fotoğraf Bulunamadı" 'Resim bulunamadıysa mesaj kutusunu gösterir.
Alttan Çık
Range ( "B20"). Seçiniz
Son Alt