sabertb
2015/11/07, 11:27
سلام خدمت اساتید محترم
قست دارم در قسمتی از فایلم تصاویری به صورت رندوم به نمایش در آید که با کمک اساتید عزیز به این کد رسیدم
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
ولی این آدرس دهی در سیستم خودم جواب میده و تو شبکه شرکت جواب نمیدهبا اینکه کل پوشه رو تو شبکه میزارم. شاید برای اینه که در آدرس تصاویر و خود فایل اکسل از کلمات فارسی و هم چنین // و از این قبیل تشکیل شده جواب نمیده آدرسی که من میبینم برای تصاویر در شبکه به این شرح است . تصویر زیر :
9185
راه حل چیست
قست دارم در قسمتی از فایلم تصاویری به صورت رندوم به نمایش در آید که با کمک اساتید عزیز به این کد رسیدم
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
ولی این آدرس دهی در سیستم خودم جواب میده و تو شبکه شرکت جواب نمیدهبا اینکه کل پوشه رو تو شبکه میزارم. شاید برای اینه که در آدرس تصاویر و خود فایل اکسل از کلمات فارسی و هم چنین // و از این قبیل تشکیل شده جواب نمیده آدرسی که من میبینم برای تصاویر در شبکه به این شرح است . تصویر زیر :
9185
راه حل چیست