Iamge trên From không hoạt động khi đường dẫn là tiếng việt và đuôi *.png

[minhtuan55]

Chào cả nhà GPE !
Em test thấy đoạn code sau không hoạt động 2 trường hợp: Đường dẫn tiếng việt, và không hiển thị được ãnh đuôi *.Png . Mong mọi người chĩ giáo

Image1.Picture = LoadPicture(Range("a1"))

Xin chân thành cảm ơn cả nhà. CHúc năm mới GPE năm mới = ( phát tài + May mắn + Thành công - Xui xẽo - sức khỏe không tốt - ăn nhậu )

 

[Kiều Mạnh]

Chào cả nhà GPE !
Em test thấy đoạn code sau không hoạt động 2 trường hợp: Đường dẫn tiếng việt, và không hiển thị được ãnh đuôi *.Png . Mong mọi người chĩ giáo

Image1.Picture = LoadPicture(Range("a1"))

Xin chân thành cảm ơn cả nhà. CHúc năm mới GPE năm mới = ( phát tài + May mắn + Thành công - Xui xẽo - sức khỏe không tốt - ăn nhậu )

1/ Xài Hàm API lấy đường dẫn ngắn của nó ( thấy người ta keo là Shutpath gì đó tiếng tây mình ko nhớ lắm)
2/ Xài Fso .... như trên ....

thử 2 cái trên coi sao

 

[minhtuan55]

1/ Xài Hàm API lấy đường dẫn ngắn của nó ( thấy người ta keo là Shutpath gì đó tiếng tây mình ko nhớ lắm)
2/ Xài Fso .... như trên ....

thử 2 cái trên coi sao

Thank bác. Cả 2 cái đó quá khó với e. E gõ google nảy giờ mà không ra. Mong bác xuất chiêu giúp e

 

[Kiều Mạnh]

Thank bác. Cả 2 cái đó quá khó với e. E gõ google nảy giờ mà không ra. Mong bác xuất chiêu giúp e

TRÊN gpe CÓ CẢ ĐỐNG TÌM CHI XA XÔI VẬY CHO MỆT

 

[batman1]

Thank bác. Cả 2 cái đó quá khó với e. E gõ google nảy giờ mà không ra. Mong bác xuất chiêu giúp e

google? Trên GPE hay trong cuộc sống đều vậy: trước tiên tìm trong nhà, nếu không tìm thấy thì mới tìm ở ngoài đường.

GPE -> Tìm kiếm -> shortpath

 

[minhtuan55]

google? Trên GPE hay trong cuộc sống đều vậy: trước tiên tìm trong nhà, nếu không tìm thấy thì mới tìm ở ngoài đường.

GPE -> Tìm kiếm -> shortpath

Mong bác giúp em cho trót. EM đã search rồi toàn là thư mục thôi không có cái nào liên quan đến Hình ành bác ơi. Bác cho e xin link đi

 

[HeSanbi]

Không biết có đúng không
-------------------------------------

#If VBA7 Then
  Private Declare PtrSafe Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameW" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
#Else
  Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameW" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
#End If
    Public Function GetShortPath$(ByVal strFilename)
        Dim lngRes&, strPath$
        strPath = String$(165, 0)
        lngRes = GetShortPathName(strFilename, strPath, 164)
        GetShortPath = Left$(strPath, lngRes)
    End Function

 

[batman1]

Mong bác giúp em cho trót. EM đã search rồi toàn là thư mục thôi không có cái nào liên quan đến Hình ành bác ơi. Bác cho e xin link đi

Điêu thế.

Thôi thì ủng hộ bạn cái gương cho Mada tiền tỷ sắp tới.

Bài #1171

https://www.giaiphapexcel.com/diendan/threads/Đố-vui-về-vba.7146/post-756490

Bài #1176

https://www.giaiphapexcel.com/diendan/threads/Đố-vui-về-vba.7146/post-756504

 

[minhtuan55]

Điêu thế.

Thôi thì ủng hộ bạn cái gương cho Mada tiền tỷ sắp tới.

Bài #1171

https://www.giaiphapexcel.com/diendan/threads/Đố-vui-về-vba.7146/post-756490

Bài #1176

https://www.giaiphapexcel.com/diendan/threads/Đố-vui-về-vba.7146/post-756504

Thank bác. Vụ tiếng việt xong còn vụ *.PNG vẫn còn lổi chưa xem được bác. Bác giúp em xong là bác lên BMW 5 luôn Mát đa chi bác

 

[batman1]

Thank bác. Vụ tiếng việt xong còn vụ *.PNG vẫn còn lổi chưa xem được bác. Bác giúp em xong là bác lên BMW 5 luôn Mát đa chi bác

Tôi biếu bạn khoản tiền gương cho Mada bạn sẽ tậu chứ tôi có kế hoạch gì đâu.

LoadPicture không chấp nhận ảnh PNG. Dùng BMP, JPG, GIF, WMF, EMF nhé.

 

[minhtuan55]

Tôi biếu bạn khoản tiền gương cho Mada bạn sẽ tậu chứ tôi có kế hoạch gì đâu.

LoadPicture không chấp nhận ảnh PNG. Dùng BMP, JPG, GIF, WMF, EMF nhé.

Thank bác. vậy thì em phải viết đoạn code Chuyển Đuôi từ 1 đuôi PNG ---> JPG Thôi vậy cũng được . Đi tắt không được thì đi đường vòng