Resim Yol Hatası Sorununu Çözme

@Ömer BARAN Hocam,
İlk kayıt sırasında aşağıdaki blokta hata veriyor.

Sub BARKOD_RESIM()
Dim hcr As Range, rsm As ChartObject, nsn As Object
Application.ScreenUpdating = False
Set nsn = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path) - Bu satırda hata veriyor.
Set hcr = Sheets("Form").[AY10:BF13]
hcr.CopyPicture xlScreen, xlPicture
Set rsm = ActiveSheet.ChartObjects.Add(0, 0, hcr.Width + 0, hcr.Height + 0)
rsm.Border.LineStyle = 0: rsm.Chart.Paste
rsm.Chart.Export ThisWorkbook.Path & "\Referans_Kod\" & Sheets("Form").[AJ11].Value & ".jpeg"
rsm.Delete: Set nsn = Nothing: Set hcr = Nothing: Set cht = Nothing
Application.ScreenUpdating = True
End Sub

Referans kısmında ComboBox2 den kayıt seçtiğimdeyse;

ComboBox2_Change() başlığının "Me.Image1.Picture = LoadPicture(yol)" bu kod kısmında hataya düşüyor.

Değerli arkadaşlarım,
Yukarıda bahesettiğim sorunu çözdüm. Nedeni bilgisayarında Adobe Acrabat yüklü olmadığı için hata alıyormuşum. Yükledikten sonra problemim düzeldi. Ancak, kalsöre eklediği barkodlar rkli dosyadaki gibi geliyor. Problem şimdi bu şekile birindü.

Sizlerin değerli yorumlarını rica ediyorum. Araştırmaya devam...