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

帖子: 14
主題: 2
精華: 0
積分: 17
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2014-10-22
最後登錄: 2018-7-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-10-24 15:25 | 只看該作者

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

請問各位網兄

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

有二個問題想要尋求解答

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

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

帖子: 14
主題: 2
精華: 0
積分: 17
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2014-10-22
最後登錄: 2018-7-24

2^#

發表於 2014-10-27 14:25 | 只看該作者

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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元的贊助,人人有能力.

帖子: 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)

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
Dim p As Object
If Dir(PictureFileName) = "" Then Exit Sub
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
With TargetCells
p.Top = .Top
p.Left = .Left
.ColumnWidth = .ColumnWidth / .Width * p.Width
.RowHeight = p.Height
End With
Set p = Nothing
End Sub

複製代碼

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

複製代碼

帖子: 14
主題: 2
精華: 0
積分: 17
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2014-10-22
最後登錄: 2018-7-24

5^#

發表於 2014-10-28 15:53 | 只看該作者

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

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

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

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

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-10-29 11:02 | 只看該作者

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

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 14
主題: 2
精華: 0
積分: 17
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2014-10-22
最後登錄: 2018-7-24

7^#

發表於 2014-10-29 12:00 | 只看該作者

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

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

Test for 圖片插入.zip (14.59 KB)