分享一個簡單的傳回資料及圖片檔

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

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

1^# 跳轉到 »

發表於 2011-7-9 11:21 | 顯示全部帖子

不錯的構想,像片的顯示利用圖片照相功能,傳回參照位置的影像(圖片,文字..等)

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

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

2^#

發表於 2012-12-14 10:38 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-12-14 10:39 編輯

回復 8# c_c_lai

Option Explicit
Sub Ex()
Sheet1.Range("C2:D4").Copy '圖片照相功能: 參照位置的影像(圖片,文字..等)
With Sheet2.Pictures.Paste '貼上圖片
.Name = "TEST"
.Top = Sheet2.Range("F11").Top
.Left = Sheet2.Range("F11").Left
.ShapeRange.Line.Weight = 1.5
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 64
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With
'Sheet2.Pictures("TEST").Formula = "Sheet1!C3:D3"
'圖片照相功能、以及傳回參照位置的影像(圖片,文字..等)

複製代碼

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

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

3^#

發表於 2012-12-14 11:28 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-12-14 11:29 編輯

回復 13# c_c_lai
=K4 改 =K3 看看
再研究一下程式碼的注解

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

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

4^#

發表於 2012-12-14 12:17 | 顯示全部帖子

回復 15# c_c_lai
輕點一下圖片，便出現錯誤訊息， : 圖片指定的巨集不存在
我在 Combo 欄內按滑鼠右鍵也無任何反應，其它欄位則會顯示資料內容及該欄位編號。: 圖片沒有指定範圍

圖片照相功能、以及傳回參照位置的影像(圖片,文字..等)

圖片有指定範圍後 : 範圍的內容有改變...( 物件 , 儲存格的字串,格式.. ),都會傳回到圖片上(圖片的照相功能)