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

  

时间: 2024-10-14 06:30:41

CDR VBA鼠标选择的相关文章

原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板

原创:用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一.主要实现以下功能:1.用鼠标选择单元格(可谓连续单元格,也可为不连续的)后,按照要求格式“证件号码:+选定内容+“,”+”选定内容“等等进行合并2.合并后的内容,直接复制到剪切板二.代码示例: Sub TestA() Set a = New DataObject '情况存放合并结果的单元格内容 Range("B2") = "" '开始合并选择单元格的内容 For Each C In Select

鼠标选择文字事件js代码,增加层问题

在页面中增加一个js代码,当用户用鼠标选择文字(鼠标拖动涂蓝文字)时,会出现一个层,提示与这个选择文字有个的信息<script type="text/javascript">document.onmouseup = document.ondbclick= function(){ var txt; if(document.selection){  txt = document.selection.createRange().text }else{  txt = window.

Ubuntu 14.04 LTS 火狐浏览器中,鼠标选择文字被删除的解决办法

这篇文章主要介绍了Ubuntu 火狐浏览器中,鼠标选择文字被删除的解决办法,需要的朋友可以参考下在终端中输入命令: ibus-setup将 "在应用程序窗口中启用内嵌编辑模式" 选项取消 原文地址:https://www.cnblogs.com/onelikeone/p/9071460.html

C# listbox鼠标选择改变改行颜色的另一种方便方法

今日因为要做一个园区播放器,里面包含音乐播放器和任务播放等功能.其中音乐列表用到了listbox这个控件.由于listbox控件简单,没有选择改变选择项颜色的方法,网上花了很多时间,都不能简单地做成音乐播放到那里,列表那里就变色的效果. 大神们的方法都是高深复杂的.我觉得学一下可以,但项目需要的快速响应,我就选择了自己突然想到的一种方法. 大概的原理: 1.在listbox上面新建一个panel控件,用于覆盖选择行的值 2.panel上面放一个label,text值就是selectitem 3.

兼容各个浏览器:禁止鼠标选择文字事件

Css #text{ -moz-user-select: none; -webkit-user-select: none; user-select: none; -o-user-select:none; -ms-user-select:none; } html <div id="text" onselectstart="return false;" unselectable="on">拖动滑块验证</div> 原文地址:h

淡蓝色的鼠标拖动选择框

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><meta http-equiv="Content-Type" cont

file API+JCrop 选择、裁剪并上传头像

file API,直接读取本地文件,绕过了后台处理再返回前台的过程,使编程更简单.fileAPI和JCrop的结合使用上传头像. 1.html部分 <input id="demo" type="file" onchange="showPic();"/> <img id="avatar" src=""> 2.fileAPI预览图片(jquery) <script type=&qu

three.js鼠标交互

使用 2D 鼠标在 3D 场景中拾取对象 3D 的另一个重要的用户交互技术是对象拾取,即 3D 场景中的对象选择.输入设备是一个 2D 鼠标,用户实际单击的是在其中渲染 3D 场景的画布.因为当用户周绕场景运动时,渲染会发生变化,必须将鼠标的 2D 坐标动态地(在鼠标单击时)映射到场景的三维坐标空间,以确定哪些对象被选中. 在 2D 图形中,通过命中测试 来执行鼠标选择.对象拾取是 3D 中的一种命中测试形式.Three.js 通过提供一个 projector 辅助程序来简化对象拾取,它可以从

OpenGL学习笔记:拾取与选择

转自:OpenGL学习笔记:拾取与选择 在开发OpenGL程序时,一个重要的问题就是互动,假设一个场景里面有很多元素,当用鼠标点击不同元素时,期待作出不同的反应,那么在OpenGL里面,是怎么知道我当前鼠标的位置是哪一个物体呢? OpenGL有一套机制,叫做Picking, 里面涉及到几个核心概念: 1. selection mode. 选择模式 2. name stack. 名字栈 3. hit record. 命中记录 4. viewing volume. 视角范围 在OpenGL的pick