Mong GPE giúp đỡ - Insert Picture khi Print

[dhn46]

Em chưa biết tại sao và làm cách nào để khi preview thì các tên ảnh tương ứng trong 1 vùng chọn sẽ chèn vào image. Mong các anh chị GPE giúp đỡ

 

[ngodany135]

ý bạn muốn in 1 lần nhiều hình ah.

 

[dhn46]

Đúng rồi. Cái này mà thay printpreview bằng printout thì khá hữu dụng đấy
Nhưng mình chưa làm được. Các dữ liệu text thì chuyển nhưng hình thì cứ đứng yên

 

[ngodany135]

Mình thì cũng chưa hiểu lắm, bạn nghiên cứu cái này thử có ích cho bạn không? Nếu file của bạn làm được gữi lên đây cho mình và mọi người xem nhé

 

[ndu96081631]

Đúng rồi. Cái này mà thay printpreview bằng printout thì khá hữu dụng đấy
Nhưng mình chưa làm được. Các dữ liệu text thì chuyển nhưng hình thì cứ đứng yên

Khả năng cập nhật của các ActiveX Object khá kém, vì thế thay vì dùng Image, bạn hãy thay bằng 1 Shape (hình chữ nhật) là xong
Ví dụ thế này:

Private Sub CommandButton1_Click()
  Dim cls As Range
  For Each cls In Sheet1.Range("b2:b4")
    [g2] = cls
    Sheet1.Shapes("Rec1").Fill.UserPicture ThisWorkbook.Path & "\" & cls & ".jpg"
    Application.ThisWorkbook.Worksheets.PrintPreview
  Next
End Sub

 

[dhn46]

E cũng đã thử với Shape rồi nhưng yếu điểm của nó là làm biến dạng hình ảnh khi các kích cở có sự lệch nhau 1 ít. Với Image thì có khả năng giải quyết vấn đề này. Tiếc quá Image lại kém về khả năng cập nhật hình ảnh.