請教關於圖片顯示的語法？ EXCEL, 如何

tku0216

請教各位先進，若我要在EXCEL寫一個東西，是當使用者把滑鼠滑過某個區域時，旁邊就會有張圖出現。應該要如何寫呢？

使用需求是類似說明書的文字，因為內容很多，不想讓它佔版面，故只有當使用者想看的時候，把滑鼠移到某區域，說明書會出現，移開滑鼠之後，說明書就不見了。

煩請不令賜教，謝謝。

GBKEE

回復 1# tku0216
移動滑鼠點選  儲存格上 有圖片檔案名稱  會顯示 該檔案名稱的圖片

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '該工作表的事件 程序
   
2.     Dim xPath As String
   
3.     On Error Resume Next
   
4.     xPath = "d:\"                                       '修改為圖片檔 的路徑資料夾
   
5.     [xlTarget].ClearComments
   
6.     If Target(1) = "" Then Exit Sub
   
7.     If Dir(xPath & Target) = "" Then Exit Sub
   
8.     Target.Name = "xlTarget"
   
9.     [xlTarget].NoteText " "
   
10.     With Target.Comment.Shape           '儲存格註解文字圖案
    
11.         .TextFrame.Characters.Font.ColorIndex = 1
    
12.         .TextFrame.Characters.Font.Size = 14
    
13.         .Fill.ForeColor.SchemeColor = 13
    
14.         .AutoShapeType = msoShapeRectangle
    
15.         .Line.ForeColor.SchemeColor = 53
    
16.         .Line.Weight = 2
    
17.         .Fill.UserPicture xPath & Target
    
18.         .ScaleWidth 4, 0
    
19.         .ScaleHeight 3, 0
    
20.         .Visible = True
    
21.     End With
    
22. End Sub

複製代碼

如圖
   

下載 (61.33 KB)

2012-2-16 12:11

tku0216

多謝版主分享，又多學到了一招

hugh0620

回復 2# GBKEE


    G大大這招很厲害唷~
   若可以多一個功能會更好~
   就是將圖片名稱.格式先行抓取到EXCEL中~
   把路逕變成浮動的~
   這樣會更讚~
   可將不同資料夾的圖片搜集起來~
   這樣以後要找圖片會更快知道在哪一個位置

softsadwind

回復 4# hugh0620


    可以舉例嗎?有範例會比較好學....

GBKEE

回復 5# softsadwind
移動滑鼠點選  儲存格上 有圖片檔案名稱  會顯示註解背景圖案為該檔案名稱的圖片
儲存格 的資料為一完整的路徑檔案名稱(圖片檔)

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   '該工作表的事件 程序
   
3.     Dim xPath As String
   
4.     On Error Resume Next
   
5.     [xlTarget].ClearComments                            '清除 工作表範圍 xlTarget 註解
   
6.     On Error GoTo 0
   
7.     If Target(1) = "" Then Exit Sub
   
8.     xPath = Dir(Target(1))                              '查詢 儲存格資料是否傳回一檔案
   
9.     If xPath <> "" Then
   
10.         xPath = Target(1)
    
11.     Else
    
12.         xPath = "http://forum.twbts.com/templates/discuz6/images/logo.gif"  
    
13.     End If
    
14.     Target.Name = "xlTarget"
    
15.     [xlTarget].NoteText " "
    
16.     With Target.Comment.Shape                           '儲存格註解文字圖案
    
17.         .AutoShapeType = msoShapeRectangle
    
18.         .Line.ForeColor.SchemeColor = 53
    
19.         .Line.Weight = 2
    
20.         .Fill.UserPicture xPath                         '註解圖案 載入圖片
    
21.         .Width = Target(1, 2).Resize(, 5).Width         '註解圖案 寬度
    
22.         .Height = Target(1, 2).Resize(10).Height        '註解圖案 高度
    
23.         .Visible = True
    
24.     End With
    
25. End Sub

複製代碼

qwer7632

我沒學過Excel程式不過看起來很好用，請問是從哪
開啟程式區，我也想學

softsadwind

回復 6# GBKEE

看了很久,還是搞不清楚寫法
但是 至少會用了....:p
用來檢驗倒是很不錯....
不好意思 這麼晚才回復 最近幾天比較忙...
   

下載 (248.44 KB)

2012-3-17 15:02

roy1221

如果我想要在每一個Sheet中的A欄皆有此功能，除了每一SHEET皆貼上同一程式碼外，還有其它方法嗎？

GBKEE

回復 9# roy1221

下載 (53.7 KB)

2012-7-4 16:52