12
返回列表 上一主題 發帖

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

justinbaba

帖子
14 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-10-22 
最後登錄
2018-7-24 
5# 跳轉到 »
發表於 2014-10-28 15:53 | 只看該作者
抱歉~~ 剛才的照片 沒有加上註解..

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

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

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

TOP

justinbaba

帖子
14 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-10-22 
最後登錄
2018-7-24 
4#
發表於 2014-10-28 15:40 | 只看該作者
目前想要做出的來功能為





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

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#
發表於 2014-10-27 15:41 | 只看該作者
本帖最後由 GBKEE 於 2014-10-27 15:43 編輯

回復 2# justinbaba
插入圖檔時可以吻合儲存欄位大小
參考這理

有什麼方法可以大量的插入圖檔到儲存格之中
你的大量圖片在哪裡?
最好附範例檔上來
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

justinbaba

帖子
14 
主題
2 
精華
0 
積分
17 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-10-22 
最後登錄
2018-7-24 
2#
發表於 2014-10-27 14:25 | 只看該作者
請問有高手可以解惑嗎？ 非常感謝..

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
12
返回列表 上一主題