帖子: 15
主題: 2
精華: 0
積分: 60
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2016-5-21
最後登錄: 2024-10-30

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-5-22 09:56 | 只看該作者

[發問] 自動插入圖片

大家好
因為有需求，在看了這邊文章，發現圖片檔案可以自動帶入
http://forum.twbts.com/thread-11280-1-1.html

想詢問如何在欄位輸入名稱後，自動插入圖片
圖片存放的位置 D:\JPG

輸入檔案名稱的欄位有2欄

輸入檔案名稱 B6, B14 ...B14+8 (間隔8個欄位)
顯示圖片位置 A5, A13 ...A13+8 (間隔8個欄位)
圖片跨欄A5~A12顯示

輸入檔案名稱 E6, E14 ...E14+8 (間隔8個欄位)
顯示圖片位置 D5,D13 ...D13+8 (間隔8個欄位)
圖片跨欄D5~D12顯示

若找不到檔案，會顯示找不到檔案

應該如何做編輯?

謝謝大家幫忙

22.png (13.67 KB)

樣本

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

11^#

發表於 2016-5-31 12:28 | 只看該作者

本帖最後由准提部林於 2016-5-31 12:34 編輯

圖片以儲存格大小縮放, 除非兩者比率相同, 否則無法置中,
而且, 可能圖片遮去儲存格的框線!

另外, Pictures.Insert 在2010版是以連結方法載入圖片, 若路徑中的圖片刪除或移動.更名,
都可能無法顯示圖片, 給個多年前的草作參考:
EXCEL．商品型錄．在〔目錄表〕中快速載入〔商品圖片〕
http://blog.xuite.net/smile1000mile/blog/94861181

TOP

建銘

中學生 Rank: 2

帖子: 15
主題: 2
精華: 0
積分: 60
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2016-5-21
最後登錄: 2024-10-30

10^#

發表於 2016-5-29 10:08 | 只看該作者

本帖最後由建銘於 2016-5-29 10:09 編輯

回復 9# ML089

Dear ML089
謝謝，問題已經解決了。給你一個譖啦!!

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

9^#

發表於 2016-5-28 05:03 | 只看該作者

回復 8# 建銘

原
Mypath = ThisWorkbook.Path & "\" ' "D:\JPG\" '圖片檔案放置目錄

改為
Mypath = "D:\JPG\" '圖片檔案放置目錄

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

建銘

中學生 Rank: 2

帖子: 15
主題: 2
精華: 0
積分: 60
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2016-5-21
最後登錄: 2024-10-30

8^#

發表於 2016-5-28 01:32 | 只看該作者

本帖最後由建銘於 2016-5-28 01:33 編輯

各位前輩大家晚上好，

謝謝ML089 與 c_c_lai 兩位的協助，解決了我的問題。

其次，想再繼續詢問，
若將excel檔案存放在電腦桌面，方便直接檔案開啟，
而圖片的部分，檔案存放在D:\JPG，是否可行。

目前現況是excel和jpg檔案需存放在D:\JPG，才能正常顯示圖片。

謝謝。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-5-26 18:46 | 只看該作者

回復 6# ML089
我只是解答 #3 的提問而已，其實你 #5 的範例
也蠻不錯的。尤其是圖片修飾的語法。

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2016-5-26 16:17 | 只看該作者

回復 4# c_c_lai

謝謝指正

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2016-5-26 16:15 | 只看該作者

回復 3# 建銘

範例檔案，請下載參考
http://www.FunP.Net/420075

插入圖片.rar (1 MB)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-5-26 09:04 | 只看該作者

本帖最後由 c_c_lai 於 2016-5-26 09:10 編輯

回復 3# 建銘
將程式貼至 ThisWorkbook 或是你的工作表單內 (譬如："Sheet1" 、"工作表1") 或是模組內 (如：Module1、模組1) 均可。
順手將

With .Pictures.Insert(Mypath & E(2, 2) & ".jpg")

複製代碼

修改成

ActiveSheet.Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
With Selection

複製代碼

或是

.Pictures.Insert(Mypath & E(2, 2) & ".jpg").Select
With Selection

複製代碼

這是因為你已經位在 With Sheets("xxxxx") 內了，ActiveSheet 即是指 Sheets("xxxxx")。
以及

For y = 0 To 9
For x = 0 To 2

複製代碼

修改成

For y = 0 To 1
For x = 0 To 1

複製代碼

就符合你的提問了。

TOP

建銘

中學生 Rank: 2

帖子: 15
主題: 2
精華: 0
積分: 60
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2016-5-21
最後登錄: 2024-10-30

3^#

發表於 2016-5-26 01:56 | 只看該作者

本帖最後由建銘於 2016-5-26 01:57 編輯

回復 2# ML089

ML089 您好

報歉，現在才回覆訊息。

想詢問程式要貼在那裡，以及如何執行：
試了貼在工作表sheet1（sheet1），
檔案路徑和檔案型態都確認了，
圖案無法顯示，再請幫忙指點ㄧˊ下，
要將程式貼在那裡，及如何執行。

謝謝您。

TOP

[發問] 自動插入圖片

[發問] 自動插入圖片

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]