Giúp code đưa ảnh lên Form (1 người xem)

[bebeen]

Em có ví dụ này nhờ mọi người thiết lập code đưa ảnh lên Form dùm cho em nhé! Câu hỏi cụ thể trong file đính kèm!
Cám ơn mọi người nhiều!

 

[ndu96081631]

Em có ví dụ này nhờ mọi người thiết lập code đưa ảnh lên Form dùm cho em nhé! Câu hỏi cụ thể trong file đính kèm!
Cám ơn mọi người nhiều!

Gợi ý:
- Đầu tiên bạn phải tốn công đổi tên ảnh sao cho tương ứng với MA. Ví dụ ảnh tại cell H2 có thể sửa tên thành SU001_Pic và ảnh tại I2 sửa tên thành SU001_Sign
- Tiếp theo, tham khảo topic này:
http://www.giaiphapexcel.com/forum/...Sheet-lên-Button-của-Form&p=456950#post456950
--------------------
Đương nhiên, những phần điền dữ liệu lên form là bạn phải tự làm nhé

 

[bebeen]

Gợi ý:
- Đầu tiên bạn phải tốn công đổi tên ảnh sao cho tương ứng với MA. Ví dụ ảnh tại cell H2 có thể sửa tên thành SU001_Pic và ảnh tại I2 sửa tên thành SU001_Sign
- Tiếp theo, tham khảo topic này:
http://www.giaiphapexcel.com/forum/...Sheet-lên-Button-của-Form&p=456950#post456950
--------------------
Đương nhiên, những phần điền dữ liệu lên form là bạn phải tự làm nhé

Em xem qua rùi, nếu làm 1 hoặc 2 cái thì được chứ nhiều chắc em chịu mất. Sư phụ hoàn thiện cho em phần load ảnh còn phần dữ liệu em làm được. Sư phụ thiết kế sao cho khi chọn mã nó tự cập nhật hình ảnh vào Image1 và Image2 được thì phần kia em làm được ah!

 

[ndu96081631]

Em xem qua rùi, nếu làm 1 hoặc 2 cái thì được chứ nhiều chắc em chịu mất. Sư phụ hoàn thiện cho em phần load ảnh còn phần dữ liệu em làm được. Sư phụ thiết kế sao cho khi chọn mã nó tự cập nhật hình ảnh vào Image1 và Image2 được thì phần kia em làm được ah!

Thì code cũng chỉ nhiêu đây thôi:

Private Sub TextBox1_Change()
  Dim IPic1 As IPictureDisp, IPic2 As IPictureDisp
  Dim sPic As String, sSign As String
  sPic = TextBox1.Text & "_Pic"
  sSign = TextBox1.Text & "_Sign"
  On Error Resume Next
  Set IPic1 = PictureFromObject(Sheet1.Shapes(sPic))
  Set IPic2 = PictureFromObject(Sheet1.Shapes(sSign))
  On Error GoTo 0
  Image1.Picture = IPic1
  Image2.Picture = IPic2
End Sub

Đương nhiên là trước đó bạn phải làm 2 việc:
1> Sửa tên ảnh như tôi đã nói
2> Tham khảo topic kia, copy hàm PictureFromObject vào Module
-----------------------------------
Bây giờ thì mở form lên, gõ mã số vào TextBox MA sẽ thấy ngay tác dụng