Code Load picute vào form hiện sai hình ảnh so với tên đường dẫn

[hondacrv2019]

Chào cả nhà GPE ! Mình thanh viên mới mong mọi người giúp đở
Hiện mình cũng tập tành VBA nên chưa hiểu vì sao đoạn code sau chạy bị sai

Sub hienhinhanh()
Dim a As String
a = Range("b1").Value & Range("b2").Value
UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))
End Sub



Private Function GetShortPath(FilePath)
On Error Resume Next
    GetShortPath = CreateObject("Scripting.FileSystemObject").GetFile(FilePath).ShortPath
End Function

Em em thay đổi đường dẫn File hình ảnh tại ô B2 thì khi Form load lên lại hiện hình ảnh sai với tên hiện tại. Em phải tắt Form đi mở lại thì mới hiện đúng ( Kiểu như nó vẫn nhớ tên đường dẫn của trước đó, Phải tắt form đi mở lại 1 lần thì mới đúng )




thu mục hình ảnh của em đây ạ


Link video chứng minh
https://drive.google.com/file/d/1IT...eAOdQrjuOER5UR1wC3B27dxZoEW7GQrGeahX8-FCrw8D4

Xin chân thảnh cảm ơn

 

[giaiphap]

Chào cả nhà GPE ! Mình thanh viên mới mong mọi người giúp đở
Hiện mình cũng tập tành VBA nên chưa hiểu vì sao đoạn code sau chạy bị sai

Sub hienhinhanh()
Dim a As String
a = Range("b1").Value & Range("b2").Value
UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))
End Sub



Private Function GetShortPath(FilePath)
On Error Resume Next
    GetShortPath = CreateObject("Scripting.FileSystemObject").GetFile(FilePath).ShortPath
End Function

Em em thay đổi đường dẫn File hình ảnh tại ô B2 thì khi Form load lên lại hiện hình ảnh sai với tên hiện tại. Em phải tắt Form đi mở lại thì mới hiện đúng ( Kiểu như nó vẫn nhớ tên đường dẫn của trước đó, Phải tắt form đi mở lại 1 lần thì mới đúng )


View attachment 217498

thu mục hình ảnh của em đây ạ
View attachment 217499

Link video chứng minh
https://drive.google.com/file/d/1IT...eAOdQrjuOER5UR1wC3B27dxZoEW7GQrGeahX8-FCrw8D4

Xin chân thảnh cảm ơn

Bạn đổi vị trí 2 lệnh.

UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))

thành

UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))
UserForm1.Show

 

[hondacrv2019]

Bạn đổi vị trí 2 lệnh.

UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))

thành

UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))
UserForm1.Show

Dạ em làm được rồi em cảm ơn Anh nhiều lắm

 

[hondacrv2019]

Bạn đổi vị trí 2 lệnh.

UserForm1.Show
UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))

thành

UserForm1.Image1.Picture = LoadPicture(GetShortPath(a))
UserForm1.Show

Anh giúp em 1 cái này nữa nhé. 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 bác giúp em

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

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