Cách lấy đường dẫn khi tải ảnh bằng Application.GetOpenFilename (1 người xem)

[anhkt08]

Chào các anh chị trong diễn đàn. Sắp sang năm mới em kính chúc các anh chị và các bạn sức khỏe, hạnh phúc và thành đạt.
Em có một vấn đề rất mong được các anh chị giúp đỡ
Em đang tạo một form nhập dữ liệu. Ở phần hiển thị ảnh em dùng Application.GetOpenFilename để hiển thị cửa sổ chọn ảnh.
Giờ em muốn ô A1 trong sheet1 có giá trị đường dẫn đến file ảnh vừa chọn thì phải làm thế nào?
(Nghĩa là em muốn lọc lấy địa chỉ của file ảnh vừa chọn.hj)
Xin chân thành cám ơn các anh chị

 

[ndu96081631]

Chào các anh chị trong diễn đàn. Sắp sang năm mới em kính chúc các anh chị và các bạn sức khỏe, hạnh phúc và thành đạt.
Em có một vấn đề rất mong được các anh chị giúp đỡ
Em đang tạo một form nhập dữ liệu. Ở phần hiển thị ảnh em dùng Application.GetOpenFilename để hiển thị cửa sổ chọn ảnh.
Giờ em muốn ô A1 trong sheet1 có giá trị đường dẫn đến file ảnh vừa chọn thì phải làm thế nào?
(Nghĩa là em muốn lọc lấy địa chỉ của file ảnh vừa chọn.hj)
Xin chân thành cám ơn các anh chị

Pic = Application.GetOpenFilename(....)
Thì cái Pic ấy chính là đường dẫn còn gì nữa
Ví dụ:

Sub Test()
  Dim vFile
  vFile = Application.GetOpenFilename("Picture Files, *.jpeg;*.jpg;*.gif; *.bmp")
  If TypeName(vFile) = "String" Then Range("A1").Value = vFile
End Sub

 

[anhkt08]

Cám ơn thầy ndu96081631