麻辣家族討論版版 » Excel程式區 » 插入圖片(自選檔案)

返回列表下一主題上一主題發帖

插入圖片(自選檔案)

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-8-23 13:47 | 只看該作者

插入圖片(自選檔案)

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

樓主熱帖

收藏

開心學習,學習很開心

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

2^#

發表於 2012-8-23 15:27 | 只看該作者

回復 1# linsurvey2005

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

複製代碼

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

3^#

發表於 2012-8-23 15:59 | 只看該作者

回復 2# white945

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

開心學習,學習很開心

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

4^#

發表於 2012-8-23 16:05 | 只看該作者

回復 3# linsurvey2005

ActiveSheet.Pictures.Insert(fs).Select

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

5^#

發表於 2012-8-23 16:13 | 只看該作者

回復 4# white945

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

開心學習,學習很開心

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題