GBKEE

回復 8# c_c_lai

下載 (41.31 KB)

2012-12-14 10:37

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

複製代碼

c_c_lai

回復  c_c_lai
利用名稱配合函數, 可從工具列按取消密碼, 再到名稱管理看名稱設定..
317 發表於 2012-12-14 09:31

不好意思，我是用 Office 2010 版本，工具列在哪裡？
名稱管理看名稱設定又在哪裡？
謝謝您指導！

c_c_lai

回復 11# GBKEE
我一點圖片，就出現錯誤訊息。

下載 (43.03 KB)

2012-12-14 11:20

您的左上角之圖示在目前來說，對我是一種奢求 (無法看到)

GBKEE

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

c_c_lai

回復 14# GBKEE
我是滑鼠輕點一下圖片，便出現錯誤訊息，
我在 Combo 欄內按滑鼠右鍵也無任何反應，
其它欄位則會顯示資料內容及該欄位編號。
謝謝您！

GBKEE

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

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

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