- Katılım
- 14 Ekim 2018
- Mesajlar
- 30
- Excel Vers. ve Dili
- 2016 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 09.11.2019
Merhabalar,
Bir Excel Makrom bulunuyor, farklı bir konumdan ilgili ürünnumaraların resimlerini bulup ilgili satırlara getiriyor. Ancak bu excel her kapatıp açtığımda bu resimler tekrardan yükleniyor ve ben bunları özette görmek istediğimde 2-3 dakika beklemek durumunda kalıyorum. Bunun önüne nasıl geçebilirim ?
İlgili Kod Bloğu Aşağıdaki Gibidir;
Bir Excel Makrom bulunuyor, farklı bir konumdan ilgili ürünnumaraların resimlerini bulup ilgili satırlara getiriyor. Ancak bu excel her kapatıp açtığımda bu resimler tekrardan yükleniyor ve ben bunları özette görmek istediğimde 2-3 dakika beklemek durumunda kalıyorum. Bunun önüne nasıl geçebilirim ?
İlgili Kod Bloğu Aşağıdaki Gibidir;
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error GoTo tekrar
ActiveSheet.DrawingObjects.Delete
Dim NoA As Long, i As Long
Dim PicFile As String, PicTop As Long, PicLeft As Long, PicW As Long, PicH As Long
NoA = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To NoA
PicFile = "Dosyayolu" & "\" & Range("c" & i).Text & ".jpg"
If Dir(PicFile) = Empty Then
Range("A" & i) = "Resim bulunamadı..!"
GoTo ResumeFor:
End If
PicTop = Range("A" & i).Top
PicLeft = Range("A" & i).Left
PicW = Range("A" & i).Width
PicH = Range("A" & i).Height
Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
ResumeFor:
tekrar:
Next
MsgBox "İşlem Adımları Tamamlanmıştır."
End Sub