hoangnam2015
Thành viên chính thức


- Tham gia
- 2/3/15
- Bài viết
- 62
- Được thích
- 2
Rất tiếc là tôi không rành về unicode nên chỉ tên không có dấu tôi mới làm được
Ái chà! Cái vụ này cũng hay nha.
Trong trường hợp người ta nhất định muốn đường dẫn là tiếng Việt có dấu thì ta LoadPicture làm sao đây bà con?
Duongdan = Sheets(1).Cells(ActiveCell.Row, 4)
Dim objFSO As Object, newpath As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Duongdan) Then
newpath = "D:\" & "helloworld." & objFSO.GetExtensionName(Duongdan)
objFSO.CopyFile Duongdan, newpath
UserForm1.Image1.Picture = LoadPicture(newpath)
Kill newpath
Else
MsgBox "hinh nay khong co that"
End If
thầy hỏi thì đương nhiên là thầy đã biết rồi mới đi đố chơi tụi em