作者kreites (哈哈哈哈哈哈)
看板Visual_Basic
標題[VBA ] 點選Image後在圖上標記 但會被擋住
時間Sun Dec 21 16:08:59 2014
小弟正在試做用listbox選取檔案
丟進image內
之後再用image的mousedown抓滑鼠點的座標在該位置上標記
(可以想像是在數人頭的感覺)
現在可以在對的位置畫出我要的標記
但是有個問題是
點了image區域(畫標記)之後
image好像是被active還怎樣 會擋住新產生的或是已經畫好的標記
然後滑鼠要滑離開image的範圍 標記才會顯示回來
(這時候開旁邊的選取窗格看圖層 是沒有變化的)
原程式碼如下 CountArea為Image的名稱
Private Sub CountArea_MouseDown _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes.AddShape _
(msoShapeOval, X +202.5, Y + 2, 30, 30).Select
'標記圖形細部格式省略, XY座標後加的數字為圖片的位置
Range("AP25").Value = Cells(25, 42) + 1
'標記計數
不知道有沒有什麼辦法可以解決這個問題
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 124.213.114.228
※ 文章網址: http://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1419149343.A.50E.html