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:
If recording don't have a picture ,"No Picture" (nopic.jpg) is displayed.
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
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