تفضل اخى ابراهيم
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