返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2014-10-27 15:41 | 顯示全部帖子
本帖最後由 GBKEE 於 2014-10-27 15:43 編輯

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

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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-10-29 11:02 | 顯示全部帖子
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

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-29 13:10 | 顯示全部帖子
本帖最後由 GBKEE 於 2014-10-30 14:42 編輯

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-10-29 19:14 | 顯示全部帖子
回復 9# justinbaba
請提供 網頁的網址,及選照片的規則,用VBA來試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2014-10-30 16:21 | 顯示全部帖子
回復 11# justinbaba
抓電腦 D:\PIC 可參考 這裡的第 5 帖  

Google 家 圖片的範例
  1. Option Explicit
  2. Sub Ex_網頁下載照片()
  3.     Dim i As Integer, E As Object, P As Picture, Sh As Worksheet, MaxWidth As Single
  4.     Set Sh = ActiveSheet      '指定工作表
  5.     Sh.Pictures.Delete        '刪除所有的照片
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = True
  8.         .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"
  9.         '.Navigate 指定的網頁有照片
  10.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  11.         With .Document
  12.             For Each E In .all
  13.                If UCase(E.tagname) = "IMG" Then
  14.                     i = i + 1
  15.                     Set P = Sh.Pictures.Insert(E.href) '物件(工作表上新增照片)
  16.                     With Sh.Cells(i, "a")               '指定的儲存格
  17.                         P.Top = .Top                    '照片的右方在工作表上的位置
  18.                         P.Left = .Left                  '照片的右方在工作表上的位置
  19.                         .RowHeight = IIf(P.Height >= 409, 409, P.Height)        '調整儲存格高度=>照片的高度
  20.                         P.Height = IIf(P.Height >= 409, 409, P.Height)          '調整儲存格高度=>照片的高度
  21.                         If MaxWidth < P.Width * (.ColumnWidth / .Width) Then    '下載照片的最大寬度
  22.                             MaxWidth = P.Width * (.ColumnWidth / .Width)
  23.                             .ColumnWidth = P.Width * (.ColumnWidth / .Width)    '調整儲存格欄寬=>照片的寬度
  24.                         End If
  25.                     End With
  26.                 End If
  27.             Next
  28.         End With
  29.         For Each P In Sh.Pictures
  30.             P.Width = Sh.Cells(i, "a").Width  '調整所有的照片寬度一致
  31.         Next
  32.         .Quit        '關閉網頁
  33.     End With
  34. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題