ادراج صوره عن طريق الكود الى لابل

[إبراهيم ابوليله]

الاخوه الكرام

تحيه طيبه وبعد

اريد كود مكننى من اختيار صوره من اى مكان

على الجهاز الخاص بى

لجعلها خلفيه ل لابل او لليوزر فورم

ادراج صوره فى لابل.rar

[رجب جاويش]

تفضل أخى ابراهيم

Private Sub Load_pic_Click()
Image_path = Application.GetOpenFilename( _
        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
        Title:="اختار صورة")
        
If Image_path <> False Then
Me.Lab_pic.Picture = LoadPicture(Image_path)
End If
End Sub

ادراج صوره فى لابل.rar

[إبراهيم ابوليله]

 

تفضل أخى ابراهيم

Private Sub Load_pic_Click()
Image_path = Application.GetOpenFilename( _
        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
        Title:="اختار صورة")
        
If Image_path <> False Then
Me.Lab_pic.Picture = LoadPicture(Image_path)
End If
End Sub

اخى الحبيب

رجب بارك

الله فيك

ولكن هل يمكن تثبيت الصوره

بحيث عن غلق الملف واعاده فتحه مره اخرى

نجد ان الصوره مازالت موجوده

وبذلك يكون وجود الزر للطوارئ فقط

لاننى فى القليل من الاحيان احتاج الى تغير الصوره

[مجدى يونس]

الاخ رجب جاويش

بارك الله فيك

فكرة رائعة

[رجب جاويش]

الأستاذ الفاضل / مجدى يونس

شكرا جزيلا لك

وجزاك الله كل خير

[رجب جاويش]

تفضل اخى ابراهيم

Private Sub Load_pic_Click()
Image_path = Application.GetOpenFilename( _
        FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
        Title:="اختار صورة")
Sheets("sheet2").Range("a1") = Image_path
ActiveWorkbook.Save
If Image_path <> False Then
Me.Lab_pic.Picture = LoadPicture(Image_path)
End If
End Sub

Private Sub UserForm_Initialize()
If Sheets("sheet2").Range("a1") <> "" Then
Me.Lab_pic.Picture = LoadPicture(Sheets("sheet2").Range("a1"))
End If
End Sub

ادراج صوره فى لابل2.rar

[عبدالله باقشير]

السلام عليكم

يمكك حفظ المسار في خلية معينة

مثلا A1

المرفق 2010

ادراج صوره فى لابل.rar

 

[مجدى يونس]

الاخ عبدالله 

والاخ رجب جاويش

فى موضوع واحد

اقبل شهر الخير

وكل عام وانتم بخير

[جمال عبد السميع]

أستاذى الرائع الجميل ( رجب جاويش )

أستاذ الأساتذة وعبقرى الوطن العربى ( عبد الله بقشير )

أعمال غاية فى الروعة والدقة بارك الله فيكم

بس مثل هذه الروائع من الأكواد ستجعل كل ماأقدمة من تحسين لصورة المعادلة عديم الجدوى !

بجد شئ رائع - كل عام وحضرتكم بألف خير بمناسبة الشهر الكريم

تقبلوا تحيات : تلميذكم المحب والمعجب بكل سطر تسطرة عبقريتكم

[إبراهيم ابوليله]

اخى الحبيب

رجب جاويش

استاذنا الكبير

عبدالله باقشير

بارك الله فيكم

اكواد رائعه

ندعو الله لكم بدوام الصحه والحال

[رجب جاويش]

الأستاذ الفاضل / مجدى يونس

جزاك الله كل خير

طبعا شرف لى تواجدى مع أستاذى الحبيب ( عبد الله باقشير ) فى مشاركة واحدة

 

وكل عام وحضرتك بألف خير وسعادة

[رجب جاويش]

أخى الحبيب / جمال ( أبو محمود )

جزاك الله كل خير

روائعك ستظل دوما لها مذاق وتميز خاص

[رجب جاويش]

أخى الحبيب / ابراهيم

شكرا جزيلا أخى الحبيب

وجزاك الله كل خير

[مصطفى كمال متولى]

 

[عبدالله باقشير]

السلام عليكم

جزاكم الله خيرا

وكل عام وانتم بخير

 

تقبلوا تحياتي وشكري