Thì bạn cứ làm như tôi nói đi rồi sau đó mở form lên thì biết ngay kết quả mà???
À quên, tại còn vương vấn cái đuôi!
Sub InsertPicture()
Dim c As Long
Dim WS As Worksheet
Dim Target As Range
Dim PicPath As String, PicName As String
Set WS = Sheets("Sheet1")
PicPath = "D:\Nhan More\"
On Error Resume Next
For c = 1 To 5
Set Target = WS.Range("G2")(c)
[COLOR=#0000ff] PicName = "A000" & Format(c, "00")[/COLOR]
'Xoa hinh cu neu ton tai:
WS.Shapes(PicName[COLOR=#ff0000] & ".jpg"[/COLOR]).Delete
'Nhap hinh moi vao cell:
With WS.Pictures.Insert(PicPath & PicName [COLOR=#ff0000]& ".jpg"[/COLOR])
.Name = PicName
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width
.Height = Target.Height
End With
Next
End SubCũng phải nên như thế, bởi vì lưu hình trên sheet chỉ tổ làm nặng bộ nhớ của file mà thôi! Nhưng như code vừa rồi đã giải quyết vấn đề chưa?
Bây giờ, bạn muốn làm nhận hình thông qua sheet hay nhận hình trực tiếp vào form từ thư mục có hình đây? Bạn đâu phải con cò đâu mà cứ nhảy qua nhảy lại hoài vậy? Dứt khoát một kiểu để tôi làm dứt điểm tại đây luôn!
Như vậy, bạn xóa hết hình ở cột G rồi đặt tên hình theo mã số tại cột đó cho tôi, tên hình không cần có đuôi .jpg đâu, cứ mỗi mã là mỗi tên hình, tiếp theo tôi sẽ theo tên hình đó mà chuyển lên Form thôi. Làm sẳn đi và không cần gửi file lên đây. Nhớ ghi đầy đủ và chính xác tên hình vào cột đó và dứt khoát hình phải có định dạng .jpg nha.
Option Explicit
Private Sub UserForm_Initialize()
Dim eRow As Long
eRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
ListBox1.List = Sheet1.Range("B2:G" & eRow).Value
ListBox1.MultiSelect = fmMultiSelectSingle
Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
With ListBox1
If .ListCount Then
TextBox1.Text = .List(, 1)
TextBox2.Text = .List(, 2)
TextBox3.Text = Format(.List(, 3), "dd-MMM-yy")
TextBox4.Text = Format(.List(, 4), "dd-MMM-yy")
Image1.Picture = LoadPicture("D:\Nhan More\" & .List(, 5) & ".jpg")
End If
End With
End Sub
Thì bạn cứ làm như bài #30 và copy Code ở bài #31 thay thề toàn bộ code trong Form của bạn là được.
Em thích nhất là Show ảnh từ từ ra giông như hiệu ứng trên Power Point.
Sao tên trên textbox là A/B là sao? Ý là cái tên đó bắt buộc có dấu / ở giữa mà hình ảnh nó không cho đặt tên như vậy phải không? Vậy thì ảnh đặt là A_B đi.
