Viết code gọi Picture (1 người xem)

[quykh]

Em xin hỏi các AC có thể viết code để gọi picture từ ổ D folder "Hình" ra khi gỏ Đúng mã số của hình đó không?. Ví dụ như: Em gỏ vào Cell A2 của EXcell mã số 3254 thì picture có mã số 3254 sẽ hiện ra trên file Excell đó. Mong các Ac giúp đỡ!!!!!!

 

[ndu96081631]

Em xin hỏi các AC có thể viết code để gọi picture từ ổ D folder "Hình" ra khi gỏ Đúng mã số của hình đó không?. Ví dụ như: Em gỏ vào Cell A2 của EXcell mã số 3254 thì picture có mã số 3254 sẽ hiện ra trên file Excell đó. Mong các Ac giúp đỡ!!!!!!

Nếu bạn muôn tự làm thì cứ record macro quá trình bạn Insert Picture bằng tay, sau đó xem code rồi chỉnh lại đôi chút
Nếu bạn muốn có ngay code để dùng liền, có thể xem link này:
http://www.giaiphapexcel.com/forum/showthread.php?51408-Chèn-hình-vào-cell-bằng-hàm-tự-tạo

 

[quykh]

bài của bác Tuân là hiện Picture trong Cell luôn, Còn ý của em là khi gỏ đúng mã số của Picture trong cell A2 thì hiện picture toàn màn hình và coi xong thì thoát và có thể gỏ mã số của Picture khác ...,,

 

[sealand]

Bạn thử với Code như sau xem nào? Bạn sửa đường dẫn (Path) thư mục chứa ảnh (Biến mPath), vả tên file ảnh (Biến Fname) cho phù hợp.
(Bạn Google 1 nhát là có cả đống)

Sub OpenPic()
Dim mPath As String, Fname As String, mCom As String
mCom = "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen "
mPath = "D:\luu C 24.7.14\My Documents\My Pictures\"
Fname = "milfordsound.jpg"
Shell mCom & mPath & Fname
End Sub

 

[sealand]

Có lẽ như file ví dụ sau mới đúng với yêu cầu của bạn

1/Bạn điền đường dẫn thư mục ảnh vào ô A1
2/Bạn điền danh sách file ảnh tại cột F để tạo danh sách cho Validation của ô A2
3/Tạo Validation cho ô A2 với list là cột F
4/Nhấn chọn ảnh tại ô A2 để mở ảnh