tku0216

中學生 Rank: 2

帖子: 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寫一個東西，是當使用者把滑鼠滑過某個區域時，旁邊就會有張圖出現。應該要如何寫呢？

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

煩請不令賜教，謝謝。

樓主熱帖

roy1221

中學生 Rank: 2

帖子: 17
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: winxp
軟體版本: office 2003 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-10-1
最後登錄: 2022-2-18

11^#

發表於 2012-7-5 14:47 | 只看該作者

回復 10# GBKEE

謝謝我知道怎麼用了

偶而學習

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

roy1221

中學生 Rank: 2

帖子: 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

softsadwind

中學生 Rank: 2

帖子: 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

qwer7632

中學生 Rank: 2

帖子: 40
主題: 12
精華: 0
積分: 78
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: sky
註冊時間: 2012-2-26
最後登錄: 2016-3-6

7^#

發表於 2012-3-13 20:56 | 只看該作者

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

sky

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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
移動滑鼠點選儲存格上有圖片檔案名稱會顯示註解背景圖案為該檔案名稱的圖片
儲存格的資料為一完整的路徑檔案名稱(圖片檔)

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

複製代碼

TOP

softsadwind

中學生 Rank: 2

帖子: 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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 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

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2012-3-1 17:34 | 只看該作者

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

TOP