Simple Userform With Picture

Excel Simple Userform With Picture


          Userform that contained to display pictures with the next and previous record  buttons.
Important point is that ,names of the pictures with names of people in column A are same.
The picture with the same name as the value entered in the name texbox control (txtFirstName) is searched in the folder.

Codes to check the presence of the image in the folder:
With Cells(currentrow, 1)
txtFirstName.Text = Cells(currentrow, 1).Value
Set NameFound = .Find(txtFirstName.Text)

With NameFound
On Error Resume Next
imgData.Picture = LoadPicture(fPath & "nopic.jpg")
imgData.Picture = LoadPicture(fPath & txtFirstName.Text & ".jpg")
End With
End With

If recording don't have a picture ,"No Picture" (nopic.jpg) is displayed.


No comments:

Post a Comment