آدرس دهی برای باز کردن فایل ها در vb

[sabertb]

سلام خدمت اساتید محترم
قست دارم در قسمتی از فایلم تصاویری به صورت رندوم به نمایش در آید که با کمک اساتید عزیز به این کد رسیدم

Private Sub Image1_Click()
Private Sub Worksheet_Change(ByVal Target As Range)
Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\" & Sheet1.Range("B2").Value & ".jpg")
Image1.Left = 100
End Sub 

ولی این آدرس دهی در سیستم خودم جواب میده و تو شبکه شرکت جواب نمیدهبا اینکه کل پوشه رو تو شبکه میزارم. شاید برای اینه که در آدرس تصاویر و خود فایل اکسل از کلمات فارسی و هم چنین // و از این قبیل تشکیل شده جواب نمیده آدرسی که من میبینم برای تصاویر در شبکه به این شرح است . تصویر زیر :

راه حل چیست

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.