مطلوب كود لفتح صورة مكبرة

[احمد الحربي 55]

السلام عليكم ورحمة الله وبركاته

تم انشاء UserForm1  استدعاء بيانات ويوجد به مربع Image لعرض صورة الموظف

اريد انشاء CommandButton تحت مربع الصورة لعرض الصورة بحجم اكبر في UserForm2 كامل

المطلوب كود لعرض الصورة في UserForm اخر

 

 

[أ / محمد صالح]

أنا شخصيا في مثل هذه الحالة أفتح الصورة في مستعرض الويندوز الافتراضي بالأمر shell

وبالنسبة لطلبك

في الضغط على الزر يمكنك استعمال مثل هذا الكود

Private Sub CommandButton1_Click()
    Call Add_Image 
End Sub

وفي موديول جديد نستعمل هذا الكود

Sub Add_Image()
    Set Img = UserForm2.Controls.Add("Forms.Image.1")
    With Img
        .Picture = LoadPicture("مسار الصورة") 
        .PictureSizeMode = fmPictureSizeModeStretch
        .Left = 10
        .Top = 10
    End With
End Sub

بالتوفيق