作者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/cn.aspx?n=bbs/Visual_Basic/M.1419149343.A.50E.html