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

1^# 跳轉到 » 正序看帖

字體大小: tT

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

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

請問各位網兄

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

有二個問題想要尋求解答

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

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

justinbaba

小學生 Rank: 1

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

14^#

發表於 2014-10-31 19:57 | 只看該作者

謝謝抓D: 的我再移去那個討論串~~

而我照您說的方式去執行~~ 跳出了一個訊息 "應用程式或物件定義上的 ...
justinbaba 發表於 2014-10-31 16:26

Test for 圖片插入.zip (14.64 KB)
檔案已上傳，謝謝..

TOP

justinbaba

小學生 Rank: 1

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

13^#

發表於 2014-10-31 16:26 | 只看該作者

[版主管理留言]

GBKEE(2014/10/31 17:10): 上傳檔案看看

謝謝抓D: 的我再移去那個討論串~~

而我照您說的方式去執行~~ 跳出了一個訊息 "應用程式或物件定義上的錯誤" 是否我有那邊沒執行對嗎？

並且想知道~~ 是否有機會抓 FB 裡頭的照片，而且可以貼多張不同的照片到自己指定的欄位..

不好意思~~ 問題很多，請多包含 @@

TOP

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兔年全勤獎章

12^#

發表於 2014-10-30 16:21 | 只看該作者

回復 11# justinbaba
抓電腦 D:\PIC 可參考這裡的第 5 帖

Google 家圖片的範例

Option Explicit
Sub Ex_網頁下載照片()
Dim i As Integer, E As Object, P As Picture, Sh As Worksheet, MaxWidth As Single
Set Sh = ActiveSheet '指定工作表
Sh.Pictures.Delete '刪除所有的照片
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://www.google.com/search?tbm=isch&hl=zh-TW&source=hp&q=%E5%AE%B6&gbv=2&oq=%E5%AE%B6&gs_l=img.12...0.0.0.1844.0.0.0.0.0.0.0.0..0.0....0...1ac..34.img..0.0.0.9S-XuJpg9JY"
'.Navigate 指定的網頁有照片
Do While .Busy Or .readyState <> 4: DoEvents: Loop
With .Document
For Each E In .all
If UCase(E.tagname) = "IMG" Then
i = i + 1
Set P = Sh.Pictures.Insert(E.href) '物件(工作表上新增照片)
With Sh.Cells(i, "a") '指定的儲存格
P.Top = .Top '照片的右方在工作表上的位置
P.Left = .Left '照片的右方在工作表上的位置
.RowHeight = IIf(P.Height >= 409, 409, P.Height) '調整儲存格高度=>照片的高度
P.Height = IIf(P.Height >= 409, 409, P.Height) '調整儲存格高度=>照片的高度
If MaxWidth < P.Width * (.ColumnWidth / .Width) Then '下載照片的最大寬度
MaxWidth = P.Width * (.ColumnWidth / .Width)
.ColumnWidth = P.Width * (.ColumnWidth / .Width) '調整儲存格欄寬=>照片的寬度
End If
End With
End If
Next
End With
For Each P In Sh.Pictures
P.Width = Sh.Cells(i, "a").Width '調整所有的照片寬度一致
Next
.Quit '關閉網頁
End With
End Sub

複製代碼

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

TOP

justinbaba

小學生 Rank: 1

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

11^#

發表於 2014-10-30 14:19 | 只看該作者

本帖最後由 justinbaba 於 2014-10-30 14:21 編輯

回復 justinbaba
GBKEE 發表於 2014-10-29 19:14

Dear GBKEE 大

我比較常用的規則都是抓電腦 D:\PIC
或是抓 FB 上粉絲團的照片如.

https://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-xfa1/v/t1.0-9/10606582_848432645189022_612134465661955873_n.jpg?oh=72c345140a00525c75d0b30adafc29db&oe=54E93E5E&__gda__=1425326606_ac6b4e067fc55726650a4dd598d05494

TOP

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兔年全勤獎章

10^#

發表於 2014-10-29 19:14 | 只看該作者

回復 9# justinbaba

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

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

TOP

justinbaba

小學生 Rank: 1

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

9^#

發表於 2014-10-29 18:21 | 只看該作者

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

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

TOP

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兔年全勤獎章

8^#

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

本帖最後由 GBKEE 於 2014-10-30 14:42 編輯

回復 7# justinbaba
反過來

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

複製代碼

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

TOP

justinbaba

小學生 Rank: 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)

TOP

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

TOP