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

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

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

插入圖片(自選檔案)

小學生 Rank: 1

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

1^# 跳轉到 »

發表於 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: 1

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

2^#

發表於 2012-8-23 16:05 | 顯示全部帖子

回復 3# linsurvey2005

ActiveSheet.Pictures.Insert(fs).Select

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。

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