首页 > 代码库 > CDR VBA鼠标选择
CDR VBA鼠标选择
Dim x As Double, y As Double, Shift As Long, b As Boolean, doc As Document Dim sel1 As Shape, sel2 As Shape, s1 As Shape, s2 As Shape Set doc = ActiveDocument b = False While Not b b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross) Set sel1 = doc.ActivePage.SelectShapesAtPoint(x, y, False) If sel1.Shapes.Count > 0 Then Set s1 = sel1.Shapes.Last doc.ClearSelection s1.AddToSelection End If b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross) Set sel2 = doc.ActivePage.SelectShapesAtPoint(x, y, False) If sel2.Shapes.Count > 0 Then Set s2 = sel2.Shapes.Last doc.ClearSelection s2.AddToSelection End If s1.AlignToShape cdrAlignBottom, s2 s1.AlignToShape cdrAlignRight, s2 Wend
CDR VBA鼠标选择
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。