返回列表 上一主題 發帖

[發問] 有關利用檔案視窗將圖案放入另個xls

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-27 17:28 | 只看該作者

[發問] 有關利用檔案視窗將圖案放入另個xls

我在 a.xls 分頁1，放個按鈕
我希望可以跳出選取檔案視窗選取我要的圖檔
並且自動放進 b.xls 的按照檔名自動放置我要的位置上

例如
按了按鈕→出現選擇檔案的視窗→選取了1.png、22.png、312.png
→之後會將這三張圖放進 b.xls 的 A1、A11、A21

請問各位前輩，這方式是否有辦法做，應該如何做呢??
收藏 分享

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
2#
發表於 2012-8-27 18:00 | 只看該作者
抱歉上述可能跟我想得有點落差，可是已經不能編輯...

圖檔放置方式應該是根據我儲存格的名稱來自動放上
例如
A1 儲存格value="1.png"
A11儲存格value="22.png"
A21儲存格value="312.png"

當我載入檔案時，便會搜尋相對的名稱而將圖片放上
應該是這樣才對~請前輩幫忙~謝謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-8-27 20:58 | 只看該作者
本帖最後由 GBKEE 於 2012-8-27 21:01 編輯

回復 2# a703130
ThisWorkbook模組的程式碼
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim E As Range
  4.     With ActiveSheet
  5.         For Each E In .[A1,A11,A21]
  6.             With .Pictures.Insert("D:\" & E)
  7.                 .Top = E.Top
  8.                 .Left = E.Offset(, 1).Left
  9.                 .Height = 75
  10.                 .Width = .Height * 2
  11.             End With
  12.         Next
  13.     End With
  14. End Sub
複製代碼

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題