Nhờ các Anh chị hỗ trợ chèn ảnh vào userform

[sakura1010]

Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform.
Cảm ơn đã hỗ trợ.

 

[be_09]

Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform.
Cảm ơn đã hỗ trợ.

Góp ý cho bạn:
1/ Tốt nhất là bạn nên thiết kế Form theo tiêu đề thực tế cần rồi đưa lên nhờ mọi người giúp, làm chi phức tạp quá, code cũng nhiều rà cũng mệt.
2/ Theo tôi thì bạn chỉ cần làm đơn giản như thế này.

 

[batman1]

Em lên mạng tìm kiếm có file này phù hợp với nhu cầu công việc. Nên em nhờ các thầy, anh chị hỗ trợ viết giúp file phần chèn ảnh vào userform.
Cảm ơn đã hỗ trợ.

Code chỉ có nhiêu thôi

Me.Image1.Picture = LoadPicture(<đường dẫ tới tập tin ảnh>)

Trong đó <đường dẫ tới tập tin ảnh> là đường dẫn đầy đủ tới tập tin ảnh trên đĩa. Bạn không mô tả là sẽ lấy tên tập tin từ đâu nên chỉ đoán mò thôi. Nếu tên, chỉ tên thôi, bạn nhập vào vd. TextBox1 (575 chẳng hạn) thì code là

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.TextBox1.Text & ".jpg")

------------
Code load ảnh bạn đã có trong tập tin. Hãy xem code tôi trích từ tập tin

Private Sub Cmdbutton2_Click()
Dim pName As Range
imagepath = ThisWorkbook.Path & "\"

With Cells(activeRow, 1)
Me.TextBox1.Text = Cells(activeRow, 1).Value
Set pName = .Find(Me.TextBox1.Text)

With pName
On Error Resume Next
Me.Image1.Picture = LoadPicture(imagepath & "jpg")

Me.Image1.Picture = LoadPicture(imagepath & Me.TextBox1.Text & ".jpg")

End With
End With

If ListBox1.ListIndex = ListBox1.ListCount - 1 Then
MsgBox "Last Record", vbCritical, ""
Exit Sub
Else
On Error Resume Next
TextBox15 = TextBox15 + 1
With Me.ListBox1
.ListIndex = .ListIndex + 1
End With
End If
End Sub

 

[sakura1010]

Góp ý cho bạn:
1/ Tốt nhất là bạn nên thiết kế Form theo tiêu đề thực tế cần rồi đưa lên nhờ mọi người giúp, làm chi phức tạp quá, code cũng nhiều rà cũng mệt.
2/ Theo tôi thì bạn chỉ cần làm đơn giản như thế này.

View attachment 229190

Em cảm ơn anh đã góp ý, nhưng nhiều lúc thông tin em cần tìm lại nhiều nên userform hơi phức tạp nhiều.

Bài đã được tự động gộp: 29/11/19

Code chỉ có nhiêu thôi

Me.Image1.Picture = LoadPicture(<đường dẫ tới tập tin ảnh>)

Trong đó <đường dẫ tới tập tin ảnh> là đường dẫn đầy đủ tới tập tin ảnh trên đĩa. Bạn không mô tả là sẽ lấy tên tập tin từ đâu nên chỉ đoán mò thôi. Nếu tên, chỉ tên thôi, bạn nhập vào vd. TextBox1 (575 chẳng hạn) thì code là

Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Me.TextBox1.Text & ".jpg")

------------
Code load ảnh bạn đã có trong tập tin. Hãy xem code tôi trích từ tập tin

Em có làm load picture nhưng kiểm tra lại không load được ảnh như mong muốn. Nên nhờ các anh chị hỗ trợ giúp.