Xin hỏi : Cách refresh Image trên Worksheet

[tedaynui]

Xin các bạn giúp mình cách Refresh Image trên worksheet :
Mình thử tạo 1 Control Image trên WorkSheet. Nếu click từng hình thì nó được update bình thường. Tuy nhiên, nếu đưa vào vòng lặp để update luân phiên từng hình thì nó không được tự động update.

Xin chân thành cảm ơn !
TDN

 

[ndu96081631]

Xin các bạn giúp mình cách Refresh Image trên worksheet :
Mình thử tạo 1 Control Image trên WorkSheet. Nếu click từng hình thì nó được update bình thường. Tuy nhiên, nếu đưa vào vòng lặp để update luân phiên từng hình thì nó không được tự động update.

Xin chân thành cảm ơn !
TDN

Tôi để ý thấy các Object thuộc Control Toolbox có khả năng cập nhật rất kém
Nếu thầy Phước dùng Shape thì không có vấn đề

Private Sub CommandButton1_Click()
  Dim sPath As String, ans As Byte
  For i = 1 To 9
    sPath = ThisWorkbook.Path & "\" & i & ".jpg"
    ActiveSheet.Shapes("Rec1").Fill.UserPicture sPath
    ans = MsgBox(sPath, vbYesNo)
    If ans = 7 Then Exit For
  Next i
End Sub

 

[tedaynui]

Dạ cám ơn anh, em cũng đã chuyển sang dùng Shape. Nhưng thú thật em "ấm ức" quá, không tìm được nguyên nhân. Hic

TDN