標題: [發問] 有關利用檔案視窗將圖案放入另個xls [打印本頁]

---

作者: a703130    時間: 2012-8-27 17:28     標題: 有關利用檔案視窗將圖案放入另個xls

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

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

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

---

作者: a703130    時間: 2012-8-27 18:00

抱歉上述可能跟我想得有點落差，可是已經不能編輯...

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

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

---

作者: GBKEE    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)