Cần giúp code CreateObject("Shell.Application") sau khi mở hình Ảnh lại lổi code

[hondacrv2019]

Chào cả nhà Giải Pháp Excel VBA
Em đang dùng code này để khi click vào hình ảnh thì mở File hình ảnh đó luôn. Nhưng sau khi chạy code đó xong thì Ảnh lại hiển thị không đúng tên đường dẫn mong mọi người giúp em. XIn chân thành cảm ơn !

Private Sub Image1_Click()
  With CreateObject("Shell.Application")
    .Open Range("b1").Value  ' anh chinh
  End With
End Sub

Link video
https://drive.google.com/file/d/1ul...np8Rb-Rs8lP6Nf866WcK2kG-KnabEhvZOF6I4hfvchVrM

 

[leonguyenz]

Chào cả nhà Giải Pháp Excel VBA
Em đang dùng code này để khi click vào hình ảnh thì mở File hình ảnh đó luôn. Nhưng sau khi chạy code đó xong thì Ảnh lại hiển thị không đúng tên đường dẫn mong mọi người giúp em. XIn chân thành cảm ơn !

Private Sub Image1_Click()
  With CreateObject("Shell.Application")
    .Open Range("b1").Value  ' anh chinh
  End With
End Sub

Link video
https://drive.google.com/file/d/1ul...np8Rb-Rs8lP6Nf866WcK2kG-KnabEhvZOF6I4hfvchVrM

Theo file đính kèm, Private Function GetShortPath(FilePath) => bỏ Private, chỉ còn Function GetShortPath(FilePath)
Thêm hàm này vào các sự kiện trong UserForm, ví dụ:
UserForm1.Image1.Picture = LoadPicture((Range("b1").Value)) => UserForm1.Image1.Picture = LoadPicture(GetShortPath(Range("b1").Value))
Chạy code và kiểm tra thử.

 

[hondacrv2019]

Theo file đính kèm, Private Function GetShortPath(FilePath) => bỏ Private, chỉ còn Function GetShortPath(FilePath)
Thêm hàm này vào các sự kiện trong UserForm, ví dụ:
UserForm1.Image1.Picture = LoadPicture((Range("b1").Value)) => UserForm1.Image1.Picture = LoadPicture(GetShortPath(Range("b1").Value))
Chạy code và kiểm tra thử.

Thank a. Đã thử rồi code vẫn sai sau khi mở Ảnh lên. Anh xem lại code giúp em

 

[batman1]

Chào cả nhà Giải Pháp Excel VBA
Em đang dùng code này để khi click vào hình ảnh thì mở File hình ảnh đó luôn. Nhưng sau khi chạy code đó xong thì Ảnh lại hiển thị không đúng tên đường dẫn mong mọi người giúp em. XIn chân thành cảm ơn !

Private Sub Image1_Click()
  With CreateObject("Shell.Application")
    .Open Range("b1").Value  ' anh chinh
  End With
End Sub

Link video
https://drive.google.com/file/d/1ul...np8Rb-Rs8lP6Nf866WcK2kG-KnabEhvZOF6I4hfvchVrM

Thế thì tài giỏi đấy.
Tôi đang có 1 hình trong Image. Đường dẫn tới nó hiển thị trong B1. Khi tôi click Image thì hình y hệt như trong Image được hiển thị trong Windows Photo Viewer.

Với đường dẫn như trong tập tin thì GetShortPath không cần thiết vì LoadPicture phục vụ đường dẫn dài. Nếu trong đường dẫn có ký tự unicode thì dùng GetShortPath.
------------
Thay cho

UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

thì nên dùng

Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

 

[hondacrv2019]

Thế thì tài giỏi đấy.
Tôi đang có 1 hình trong Image. Đường dẫn tới nó hiển thị trong B1. Khi tôi click Image thì hình y hệt như trong Image được hiển thị trong Windows Photo Viewer.

Với đường dẫn như trong tập tin thì GetShortPath không cần thiết vì LoadPicture phục vụ đường dẫn dài. Nếu trong đường dẫn có ký tự unicode thì dùng GetShortPath.

Em đã thử xóa GetShortPath thì code vẫn chạy sai sau khi mở Photo Viewer . tại em làm cái này để Dò Linh kiện trong công ty em. Khi click vào thì nó mở Photo Viewer để em in ra tờ A4 em dán vào thùng hàng. Mong anh giúp đở

Private Sub CommandButton3_Click() ' XEM MAY IN
Range("b1") = Range("G9")  ' thay duong dan
Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))
End Sub

Private Sub Image1_Click()
  With CreateObject("Shell.Application")
    .Open Range("b1").Value  ' anh chinh
  End With
End Sub


Sub hienhinhanh()
Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))
UserForm1.Show
End Sub

 

[batman1]

Em đã thử xóa GetShortPath thì code vẫn chạy sai sau khi mở Photo Viewer . tại em làm cái này để Dò Linh kiện trong công ty em. Khi click vào thì nó mở Photo Viewer để em in ra tờ A4 em dán vào thùng hàng. Mong anh giúp đở

Thử thay

UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

thành

Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

Hãy nói sai khi nào vì quá vô lý.

Bạn thao tác thế nào?

Ở thời điểm chào buổi sáng B1 = ??? Bạn click nút "Hien hinh anh" thì có hình đúng trong Image? Các bước tiếp theo thế nào để có cái mà bạn cho là lỗi?

 

[hondacrv2019]

Thử thay

UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

thành

Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

Hãy nói sai khi nào vì quá vô lý.

Bạn thao tác thế nào?

Ở thời điểm chào buổi sáng B1 = ??? Bạn click nút "Hien hinh anh" thì có hình đúng trong Image? Các bước tiếp theo thế nào để có cái mà bạn cho là lỗi?

Em gửi Video và File cho bác xem nhé . Em thử vẫn không được

Video:
https://drive.google.com/file/d/1kp...7aKb091B4GS77TsAfm7yIdCuNjv4jCwo7UcMeRUC0M7ns

 

[giaiphap]

Em gửi Video và File cho bác xem nhé . Em thử vẫn không được

Video:
https://drive.google.com/file/d/1kp...7aKb091B4GS77TsAfm7yIdCuNjv4jCwo7UcMeRUC0M7ns

Thêm lệnh này.

Me.Repaint

phía dưới lệnh

Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

 

[hondacrv2019]

Thêm lệnh này.

Me.Repaint

phía dưới lệnh

Set UserForm1.Image1.Picture = LoadPicture((Range("b1").Value))

Quá tuyệt vời Me. Repaint cảm ơn bác rất nhiều. Em cũng không cần sửa code thêm chữ Set mà vẫn chạy đúng