Board logo

標題: 請教關於圖片顯示的語法？ [打印本頁]
作者: tku0216    時間: 2012-2-16 10:06     標題: 請教關於圖片顯示的語法？

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

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

煩請不令賜教，謝謝。
作者: GBKEE    時間: 2012-2-16 12:12

回復 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
複製代碼
如圖
   

[attach]9612[/attach]
作者: tku0216    時間: 2012-3-1 17:34

多謝版主分享，又多學到了一招
作者: hugh0620    時間: 2012-3-2 12:24

回復 2# GBKEE


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

回復 4# hugh0620


    可以舉例嗎?有範例會比較好學....
作者: GBKEE    時間: 2012-3-13 16:28

回復 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    時間: 2012-3-13 20:56

我沒學過Excel程式不過看起來很好用，請問是從哪
開啟程式區，我也想學
作者: softsadwind    時間: 2012-3-17 15:05

回復 6# GBKEE

看了很久,還是搞不清楚寫法
但是 至少會用了....:p
用來檢驗倒是很不錯....
不好意思 這麼晚才回復 最近幾天比較忙...
    [attach]10037[/attach]
作者: roy1221    時間: 2012-7-3 13:23

如果我想要在每一個Sheet中的A欄皆有此功能，除了每一SHEET皆貼上同一程式碼外，還有其它方法嗎？
作者: GBKEE    時間: 2012-7-4 16:52

回復 9# roy1221

[attach]11575[/attach]
作者: roy1221    時間: 2012-7-5 14:47

回復 10# GBKEE


    謝謝 我知道怎麼用了



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)