標題: 插入圖片(自選檔案) [打印本頁]

---

作者: linsurvey2005    時間: 2012-8-23 13:47     標題: 插入圖片(自選檔案)

如何讓檔名為自選
sub 選圖片()
ActiveSheet.Pictures.Insert("D:\1測量報告分類\25 耗材管理\3號充電電池.JPG").Select
end sub

---

作者: white945    時間: 2012-8-23 15:27

回復 1# linsurvey2005

1. Sub ex()
   
2. Dim fs$
   
3. fs = Application.GetOpenFilename("Image Files (*.jpg;*.bmp;*.png), *.jpg;*.bmp;*.png")
   
4. ActiveSheet.Pictures.Insert fs
   
5. End Sub

複製代碼

---

作者: linsurvey2005    時間: 2012-8-23 15:59

回復 2# white945


    請教插入圖片後要讓它為選取(.select)該如何寫 謝謝

---

作者: white945    時間: 2012-8-23 16:05

回復 3# linsurvey2005


    ActiveSheet.Pictures.Insert(fs).Select

---

作者: linsurvey2005    時間: 2012-8-23 16:13

回復 4# white945


    謝謝"white945"大大的協助,問題已經排除,也學習起來了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)