در صورت Error دادن مسیر ، تصویر مشخص شده رو نمایش بده

[sabertb]

سلام خدمت اساتید گرامی
در فایل اکسل با کمک اساتید گرامی تصاویراشخاص را با توجه به شماره پرسنلی ها نمایش میدهم با کد VB زیر

Private Sub Image1_Click()
Private Sub Worksheet_Change(ByVal Target As Range)
2 Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic" & Sheet6.Range("NP").Value & ".jpg")
Image1.Left = 507
End Sub
حالا سوال من اینجاست ، در صورتی که این دستور ارور بدهد یعنی در آدرس تصویر موجود نباشد برود و تصویر شماره 000 رو نمایش دهد در همان ریشه کد.

[Amir Ghasemiyan]

سلام دوست عزيز

ميتونين از اين تاپيك كمك بگيريد

نمایش پیام خطای دلخواه به جای پیامهای رایج اکسل (https://forum.exceliran.com/showthread.php/13499)

[sabertb]

سلام دوست عزيز

ميتونين از اين تاپيك كمك بگيريد

نمایش پیام خطای دلخواه به جای پیامهای رایج اکسل (https://forum.exceliran.com/showthread.php/13499)
ممنون با راهنمایی شما حلش کردم

Private Sub Image1_Click()Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err1
2 Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\" & Sheet6.Range("NP").Value & ".jpg")
Image1.Left = 507
Err1:
Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\000.jpg")
End Sub

[Amir Ghasemiyan]

ممنون با راهنمایی شما حلش کردم

Private Sub Image1_Click()Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err1
2 Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\" & Sheet6.Range("NP").Value & ".jpg")
Image1.Left = 507
Err1:
Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\000.jpg")
End Sub

فقط دقت كنيد كه قبل از Err1 حتما عبارت Exit Sub رو قرار بديد