[حل شده] امکان نمایش تصاویر به صورت رندوم در یک رنج فایل اکسل

[sabertb]

سلام خدمت اساتید گرامی
اگر بخواهیم به صورت رندوم تصاویری در یک رنج مشخص یا در لیبل مورد نظر در فایل اکسل فراخوانی شود چه باید کرد ؟
تصاویر در آدرس فایل اصلی و در پوشه pic ذخیره میشود. نام تصاویر هم از 1 تا 20 میباشد.
فایل نمونه پیوست شد

[DOLFIN]

سلام
1. سایز تصاویر را کوچک نمایید.(حداقل 50 % کوچک تر از اندازه واقعی) .
2.به DEVELOPER رفته و از INSERT گزینه IMAGE را از بخش ACTIVEX انتخاب نمایید و یک تصویر با اندازه دلخواه رسم نمایید.
3. وارد صفحه شیت مورد نظر در محیط VBA شده و کد زیررا درج نمایید.

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

توجه منظور از Image1.Left = 50 جایگاه تصویر در صفحه اکسل است پس عدد مربوط به آن را متناسب با صفحه وارد کنید.

[sabertb]

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

[majid_mx4]

با سلام

فایل ارسالی شما کاملا درست کار میکند

توجه داشته باشید : با توجه به نوع دستور جهت ایجاد مسیر برای پیدا کردن فایل عکس حتما یاید یکبار فایل را در مسیر خود ذخیره کنید و عکس ها نیز در فایل خودش در همان محل باشد فایل رابسته و دوباره باز کنید .
حال روی شیتی که عکس دارد دبل کلیک کنید تا شماره رندم تغییر کند .

با تشکر میر