12
返回列表 上一主題 發帖

請教關於圖片顯示的語法？

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-16 10:06 | 只看該作者

請教關於圖片顯示的語法？

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

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

煩請不令賜教，謝謝。
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
如圖
   

TOP

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
3#
發表於 2012-3-1 17:34 | 只看該作者
多謝版主分享，又多學到了一招

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
4#
發表於 2012-3-2 12:24 | 只看該作者
回復 2# GBKEE


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

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
5#
發表於 2012-3-13 13:15 | 只看該作者
回復 4# hugh0620


    可以舉例嗎?有範例會比較好學....
50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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
複製代碼

TOP

qwer7632

帖子
40 
主題
12 
精華
0 
積分
78 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
sky 
註冊時間
2012-2-26 
最後登錄
2016-3-6 
7#
發表於 2012-3-13 20:56 | 只看該作者
我沒學過Excel程式不過看起來很好用，請問是從哪
開啟程式區，我也想學
sky

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
8#
發表於 2012-3-17 15:05 | 只看該作者
回復 6# GBKEE

看了很久,還是搞不清楚寫法
但是 至少會用了....:p
用來檢驗倒是很不錯....
不好意思 這麼晚才回復 最近幾天比較忙...
   
50 字節以內
不支持自定義 Discuz! 代碼

TOP

roy1221

帖子
17 
主題
6 
精華
0 
積分
55 
點名
0  
作業系統
winxp 
軟體版本
office 2003 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-10-1 
最後登錄
2022-2-18 
9#
發表於 2012-7-3 13:23 | 只看該作者
如果我想要在每一個Sheet中的A欄皆有此功能，除了每一SHEET皆貼上同一程式碼外，還有其它方法嗎？
偶而學習

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2012-7-4 16:52 | 只看該作者
回復 9# roy1221

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
12
返回列表 上一主題