[發問] 請問可否 插入圖檔時可以吻合儲存欄位大小

justinbaba

請問各位網兄

因為我的工作常常要在製作Excel 表格時，要從網路上拖曳圖檔 還是  插入圖檔到 儲存欄位中
有時一天存個幾十張圖，都要調整大小並設定屬性為大小位置隨儲存格而變，非常的花時間。

有二個問題想要尋求解答

一、 有什麼方法可以大量的插入圖檔到儲存格之中，依序的按列排好，並不用再進行調整呢？
二、 樞紐分析是否可以連圖也一起顯示出來呢？

我目前使用的是  office 2010  的版本.

justinbaba

請問有高手可以解惑嗎？ 非常感謝..

GBKEE

回復 2# justinbaba

插入圖檔時可以吻合儲存欄位大小

參考這理

有什麼方法可以大量的插入圖檔到儲存格之中

你的大量圖片在哪裡?
最好附範例檔上來

justinbaba

目前想要做出的來功能為

下載 (66.21 KB)
第一步:圈選照片,並拖曳到excel 儲存格中

2014-10-28 14:46

下載 (81.17 KB)
擺放到excel 中的照片會自動變成"隨儲存格大小而變" 不需要再自己調整及設定

2014-10-28 14:46

下載 (62.64 KB)
某網頁上的照片也可以透過拖曳到儲存格後，完成跟前面步驟一樣的狀態

2014-10-28 14:46

抱歉，因為我完全沒有VBA 的基礎.. 會再努力K書的..
而有位善心的網友給我一段程式碼.. 但是我試著去key in 後, 好像並沒有成功 ..
再附上我作的excel 檔.. 請網兄們幫小的看看問題出在那呢？   是我那邊執行上有錯誤嗎？？
Test for 圖片插入.zip (12.05 KB)

下載次數: 7

2014-10-28 15:37

1. Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
   
2. Dim p As Object
   
3. If Dir(PictureFileName) = "" Then Exit Sub
   
4. Set p = ActiveSheet.Pictures.Insert(PictureFileName)
   
5. With TargetCells
   
6. p.Top = .Top
   
7. p.Left = .Left
   
8. .ColumnWidth = .ColumnWidth / .Width * p.Width
   
9. .RowHeight = p.Height
   
10. End With
    
11. Set p = Nothing
    
12. End Sub

複製代碼

1. Sub TestInsertPictureInCell()
   
2. On Error Resume Next
   
3. For i = 1 To 10
   
4. InsertPictureInRange "C:\Temp\Pic" & i, Range("A" & i)
   
5. Next i
   
6. End Sub

複製代碼

justinbaba

抱歉~~ 剛才的照片 沒有加上註解..

第一張
圈選照片,並拖曳到excel 儲存格中

第二張
擺放到儲存格中的照片會自動變成 "隨儲存格大小而變"
不需要再進行調整及設定

第三張
某網頁上的照片也可以透過拖曳到儲存格後，完成跟前面步驟一樣的狀態

GBKEE

回復 5# justinbaba
網頁上圈選照片,並拖曳到excel ,這XP做不到的,可以複製它然後貼到Excel上.(手動的複製)
請提供 網頁的網址,及選照片的規則,用VBA來試試看

1. Sub Ex()
   
2.     Dim P As Picture, URL As String
   
3.         URL = "http://forum.twbts.com/attachments/month_1410/1410281446b4ab2b90bda703fc.jpg.thumb.jpg"
   
4.         '指訂照片的網址
   
5.     Set P = ActiveSheet.Pictures.Insert(URL)  '物件(工作表上新增照片)
   
6.     With Range("C5")        '指定的儲存格
   
7.         .RowHeight = 150    '調整儲存格高度
   
8.         .ColumnWidth = 50   '調整儲存格寬度
   
9.         P.Top = .Top        '照片的左上方在工作表上的位置
   
10.         P.Left = .Left      '照片的右方在工作表上的位置
    
11.         P.Height = .Height  '照片的高度=儲存格的高度
    
12.         P.Width = .Width    '照片的寬度=儲存格的寬度
    
13.     End With
    
14. End Sub

複製代碼

justinbaba

回復  justinbaba
網頁上圈選照片,並拖曳到excel ,這XP做不到的,可以複製它然後貼到Excel上.(手動的複製) ...
GBKEE 發表於 2014-10-29 11:02

GBKEE 大您好... 再請教一下.. 您給我的這段程式碼是針對照片的調整嗎？
是否也能把儲存格自動調整到吻合照片的大小呢？
Test for 圖片插入.zip (14.59 KB)

下載次數: 8

2014-10-29 11:58

GBKEE

回復 7# justinbaba
反過來

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim P As Picture, URL As String
   
4.         URL = "http://forum.twbts.com/attachments/month_1410/1410281446b4ab2b90bda703fc.jpg.thumb.jpg"
   
5.         '指訂照片的網址
   
6.        'ActiveSheet.Pictures.Delete '刪除所有的照片
   
7.     Set P = ActiveSheet.Pictures.Insert(URL)  '物件(工作表上新增照片)
   
8.     With Range("C5")            '指定的儲存格
   
9.         P.Top = .Top            '照片的右方在工作表上的位置
   
10.         P.Left = .Left          '照片的右方在工作表上的位置
    
11.         .RowHeight = P.Height    '調整儲存格高度=>照片的高度
    
12.         .ColumnWidth = P.Width * (.ColumnWidth / .Width)   '調整儲存格欄寬=>照片的寬度
    
13.         '** 轉換 Width(點:像素)=ColumnWidth(寬度)
    
14.         'ColumnWidth 一單位欄寬相當於一般樣式中的一個字元的寬度
    
15.         'Width 屬性以點為單位傳回欄寬。
    
16.     End With
    
17. End Sub

複製代碼

justinbaba

回復  justinbaba
反過來
GBKEE 發表於 2014-10-29 13:10

好像成功了~~ 那再請問一下，程式碼要怎麼改，才能讓我在電腦端插入的圖檔可以 適用在 每一個欄位呢？
抱歉 @@ 真的要再加油才行

GBKEE

回復 9# justinbaba

請提供 網頁的網址,及選照片的規則,用VBA來試試看