ต้องการเปิดไฟล์มา แล้วให้รูปขึ้นมาครับ

[yodpao.b]

ต้องการเปิดไฟล์มา แล้วให้รูปแสดงขึ้นมาเลยครับ
รูป แสดงใน Sheets("Home")
code

Code: Select all

Private Sub Workbook_Open()
Sheets("Home").Select
Sheets("Home").Image1.Picture = LoadPicture("D:\Store\image\icono1.png")
Sheets("Home").Image2.Picture = LoadPicture("D:\Store\image\Tool.jpg")
Sheets("Home").Image3.Picture = LoadPicture("D:\Store\image\calibrate.png")
End Sub

code อยู่ใน ThisWorkbook ครับ

[yodpao.b]

ได้แล้วครับที่แท้เป็นที่ นามสกุล