返回列表 上一主題 發帖

插入圖片(自選檔案)

linsurvey2005

帖子
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
收藏 分享
開心學習,學習很開心

linsurvey2005

帖子
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"大大的協助,問題已經排除,也學習起來了
開心學習,學習很開心

TOP

white945

帖子
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

TOP

linsurvey2005

帖子
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)該如何寫 謝謝
開心學習,學習很開心

TOP

white945

帖子
23 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
Win7 
軟體版本
20xx 
閱讀權限
10 
性別
男 
註冊時間
2012-8-11 
最後登錄
2012-8-28 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題