CDR超平面云插件
超平面云插件,集超多功能于一体的轻量化CDR工具箱,支持自由组合与云端同步。用户可按需付费选购功能模块,个性化编辑功能分组,无需为冗余功能支付费用。该插件采用云端架构,实现多设备间无缝同步,无需本地安装即可使用各项功能。即使更换电脑或重装系统/CDR软件后,数据依旧安全无损,一键闪电更新所有功能,无需重新下载安装,带给您便捷高效的使用体验。
展开
-
本专栏公告:读者订阅前必读,订阅后视为已知悉本公告
本专栏是CDR插件技术网(原VBA探秘)网站早期文章的专栏,内容相对比较零散,且文章内容比较短,很多是代码片,具有一定参考价值,本专栏内容不会再更新,因为博主已经在写更加高质量的精品文章专栏。本专栏的所有内容,可以直接到博主的官方站点(CDR插件技术网)查看完整全文,不用付费订阅本专栏。因有人订阅了专栏,导致本专栏无法再改为【免费】模式,且价格已是最低的9.9,请读者在订阅专栏时自己评估,不要订阅了又觉得不值钱,请读者朋友仔细看完所有文章,再发表你的意见,请读者朋友知悉!针对所有订阅本专栏的朋友,如果你原创 2021-04-08 11:03:28 · 325 阅读 · 0 评论 -
CorelDRAW VBA - 实现段落文本的HTML兼容 Text.MakeHTMLCompatible
美术字文本不能转换为HTML文本,一般会被视为位图。不过可以将其转换为段落文本,然后通过代码的方式使其与web兼容。参考代码Sub test() Dim s As Shape ' 遍历当前页面中的每个文本对象 For Each s In ActivePage.FindShapes(Type:=cdrTextShape) ' 如果是段落文本 If s.Text.Type = cdrParagraphText Then ' 如果不是HTML兼容的,则将其改为HTML兼容 If原创 2021-01-04 12:57:58 · 312 阅读 · 0 评论 -
CorelDRAW VBA - 从文件导入文本内容 Text.ImportFromFile
读取本地磁盘中的文本文件,将文本文件的内容插入到文本块的指定位置。参考代码Sub test() ' 将当前选中美术字的(部分)文本内容,导出到D盘下面的 temp.txt 文件中 ActiveShape.Text.ExportToFile "D:\temp.txt", 2, 4, cdrParagraphIndexing ' 从文件导入内容,并指定插入到美术字的位置 ActiveShape.Text.ImportFromFile "D:\temp.txt", 1, cdrParagraph原创 2021-01-04 12:51:17 · 655 阅读 · 0 评论 -
CorelDRAW VBA - 读取和操作部分文本内容 Text.Range
创建一个美术字文本对象,并用消息框显示第1个到第5个字符,并将第9到第14个字符改为大写形式。参考代码Sub test() ' 定义相关变量 Dim t As Text Dim s As Shape Dim d As Document ' 创建文档 Set d = CreateDocument ' 在文档中创建一个美术字文本 Set s = d.ActiveLayer.CreateArtisticText(4, 5, "欢迎访问VBA探秘www.cdrvba.com") ' 取得原创 2021-01-02 20:53:11 · 1257 阅读 · 1 评论 -
CorelDRAW VBA - 获取页面边框范围内的所有图形
本函数用来获取页面边框范围内的所有图形,返回指定页面 p 边框范围内的所有形状,返回类型为 Shapes。具体请参考以下代码实现:VBA参考代码'================================================================' 获取页面边框范围内的所有图形' p: 页面对象' 返回: 指定页面 p 边框范围内的所有形状'======...原创 2019-06-22 23:29:40 · 1225 阅读 · 0 评论 -
CorelDRAW VBA - 替换文本 Text.Replace
将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。参考代码Sub test() ' 定义形状变量 Dim s As Shape ' 遍历当前页面所有的文本形状(通过查找) For Each s In ActivePage.FindShapes(, cdrTextShape) ' 替换 # 为当前日期 s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next sEnd原创 2021-01-02 10:18:54 · 1144 阅读 · 0 评论 -
CorelDRAW VBA - 使文本适合到路径 Text.FitTextToPath
将指定的美术字文本,沿着指定的路径进行排列,并指定文本的排列效果。参考代码Sub test() ' 定义美术字变量、椭圆变量 Dim sText As Shape, sEllipse As Shape ' 创建一个美术字 Set sText = ActiveLayer.CreateArtisticText(0, 0, "WWW.CDRVBA.COM") ' 创建椭圆 Set sEllipse = ActiveLayer.CreateEllipse2(...原创 2020-12-24 22:42:47 · 514 阅读 · 0 评论 -
CorelDRAW VBA - 解决段落文本溢出(使文本适合框架)
在排列段落文本时,经常会遇到由于段落文本内容较多,导致超出的内容没有在段落文本框内部完全显示,也就是常说的文本溢出的情况。本文介绍将文本适合到它的框架,即匹配到文本的框架大小,可以解决文本溢出的问题。参考代码Sub test() Dim doc As Document Dim s As Shape Dim t As Text ' 创建文档 Set doc = CreateDocument ' 创建段落文本 Set s = doc.ActiveLayer.CreateParagraph原创 2020-10-28 17:54:40 · 1358 阅读 · 0 评论 -
CorelDRAW VBA - 搜索查找特定文本
在文本内容中查找、搜索指定的文本字符串,可以指定是否忽略大小写、查找起始位置、文本是否遵循对象的形状或边框的路径、指定要查找的文本索引类型等。索引类型可以是字符、单词或段落。使用 Text 类提供的 Find 方法,可以实现文本的查找、搜索,尤其适合在段落文本中进行查找、搜索,速度较快。参数说明参数 描述 Text Text 指定要查找的文本。字符串必须包含在引号中。 CaseSensitive 确定是否匹配text参数中的文本的大小写(是否大小写敏感)。 S...原创 2020-10-28 17:52:53 · 1158 阅读 · 0 评论 -
CorelDRAW VBA - 段落文本内容的导出 ExportToFile 方法
过 Text 文本对象的ExportToFile 方法,可以实现对文本内容的导出功能。例如可以指定导出某个段落文本的指定段落范围。参数说明参数 描述 FileName 指定文本导出到的文件的完整路径和文件名 StartIndex 指定文本范围中的第一个文本对象 Count 指定范围内的项数 IndexingType 指定要索引的文本类型。索引类型可以是字符、单词或段落。参数IndexingType返回cdrTextIndexingType的值。这个参数.原创 2020-10-28 17:47:48 · 779 阅读 · 0 评论 -
CorelDRAW VBA - 将文档保存或另存为X4版本
本文主要介绍将文档保存或者另存为X4版本的VBA代码实现,用到了 CorelScriptTools(Corel脚本工具)的GetFileBox 方法来打开文件对话框,使用Document(文档对象)的 Dirty 属性来判断文档在上一次保存后是否修改过。参考代码Sub saveAsX4() ' 定义结构化保存选项 Dim opt As New StructSaveAsOptions ' 定义保存路径 Dim path As String ' 判断文档是否..原创 2020-10-28 17:41:22 · 2099 阅读 · 0 评论 -
CorelDRAW VBA - 按照面积排序曲线物件(形状)
以下是按照面积对形状进行排序的代码,仅供参考。Sub 按面积排序曲线物件() ' For diaogangxiong ActivePage.Shapes.All.CreateSelection’全选 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ConvertToCurves’转曲线 Dim grp1 As ShapeRange原创 2020-10-28 17:28:34 · 620 阅读 · 0 评论 -
CorelDRAW VBA 斑马开发框架,让新手也能快速编写自己的插件小工具
Zebra VBA Framework(斑马框架) 是由 VBA探秘 发布的一款适用于 CorelDRAW X4(及以上版本) 软件,基于 VBA 语言来实现的一个快速开发框架。使用者只需要通过框架提供的类,使用很少的代码,就可以实现常见的功能,极大地简化类VBA插件开发过程,使开发者更加专注于插件自身业务逻辑的编写,让新手也能快速编写自己的插件。框架介绍Zebra VBA ...原创 2020-04-03 13:27:50 · 1292 阅读 · 3 评论 -
CorelDRAW VBA - 矩形内组(智能群组)方法
在 CorelDRAW VBA 中,可以通过 Page 对象的 SelectShapesFromRectangle 方法选中某个矩形范围内的所有其他形状,选中后得到选中的形状,再执行群组,就实现了矩形内组,一般也可以叫做智能群组。准备工作在页面上绘制一个矩形,大致的效果如下图所示:首先选中最大的矩形外框,然后在VBA编辑器中,编写一个过程并运行该过程,就可以发现矩形内部的形状都被选中,并...原创 2019-05-31 13:04:10 · 3117 阅读 · 2 评论 -
CorelDRAW VBA - 获取位图图像的水平、垂直分辨率
在 CorelDRAW VBA 中,可以通过 Bitmap 对象的 ResolutionX 和 ResolutionY 属性来获取图像的水平分辨率和垂直分辨率。代码参考请在打开的 CorelDRAW 文档页面中导入一幅图像,并将其选中,然后在VBA编辑中运行以下代码演示获取当前选中图像的水平分辨率。MsgBox "当前选中图像的水平分辨率是:" & ActiveShape.Bitm...原创 2019-05-30 12:33:59 · 1393 阅读 · 0 评论 -
CorelDRAW VBA - 打开文件(另存为)对话框
本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框,选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框(或者另存为对话框)。CorelScriptToolsCorelScriptTools 是Corel官方提供的一个脚本工具,可以用来执行很多有用的操作。比如 GetFileBox 方法就可以用来...原创 2019-05-12 09:09:01 · 3262 阅读 · 0 评论 -
CorelDRAW VBA - 在图层执行自定义命令 Layer.CustomCommand
Layer.CustomCommand 方法用来执行组件提供的特定于某个图层的命令。例如,您可以使用 CustomCommand方法来执行表相关的命令,方法是使用 Table 开头的类。参数说明参数描述ComponentID指定所需组件的IDCommandID指定所需命令的IDParameter指定所需的参数原创声明:本文首发于 《CorelDRA...原创 2019-02-28 09:51:07 · 616 阅读 · 0 评论 -
CorelDRAW VBA - 在图层的指定位置创建符号实例 Layer.CreateSymbol
Layer.CreateSymbol 方法用来在图层的指定位置创建一个符号实例。参数说明参数描述x指定放置符号的x坐标y指定放置符号的y坐标SymbolName指定符号的名称Library指定库的名称。此参数是可选的,其默认值为Nothing。原创声明:本文首发于 《CorelDRAW VBA探秘》 独立站点,请尊重文章版权。转载请注明原...原创 2019-02-28 09:49:18 · 679 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建一个螺旋形状 Layer.CreateSpiral
Layer.CreateSpiral 方法用来在图层上创建一个螺旋形状。本文演示在当前活动图层上创建一个对数螺旋。螺旋有四圈,每圈的生长因子为100。参数说明参数描述Left在文档单位中,指定从螺旋的左侧到页面框架的左侧的距离Top在文档单位中,指定从螺旋顶部到页面框架顶部的距离Right在文档单位中,指定从螺旋的右侧到页面框架的右侧的距离Botto...原创 2019-01-29 20:17:33 · 381 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建直角连接器线 Layer.CreateRightAngleConnector
Layer.CreateRightAngleConnector 方法用来在图层上创建直角连接器线。参数说明参数描述Start指定连接行对象的起点End指定连接线对象的结束点CornerRadius指定角半径。此参数是可选的,其默认值为0。原创声明:本文首发于 《CorelDRAW VBA探秘》 独立站点,请尊重文章版权。转载请注明原文链接:htt...原创 2019-01-29 20:16:08 · 354 阅读 · 0 评论 -
CorelDRAW VBA - 使用指定的矩形区域在图层上创建矩形 Layer.CreateRectangleRect
Layer.CreateRectangleRect 方法用来在图层上使用指定的矩形区域在图层上创建矩形。参数说明参数描述x在文档单位中,指定左上角坐标的水平位置y在文档单位中,指定左上角坐标的垂直位置Width指定文档单位中的水平度量Height指定文档单位中的垂直度量RadiusUL指定左上角的实际角半径测量值。此参数是可选的,其默认值为...原创 2019-01-29 20:15:12 · 851 阅读 · 0 评论 -
CorelDRAW VBA - 使用左上角的坐标、宽度、高度和角半径在图层上创建矩形 Layer.CreateRectangle2
Layer.CreateRectangle2 方法用来在图层上使用左上角的坐标、宽度、高度和角半径在图层上创建矩形,本文演示创建两个矩形之间的混合。中间混合对象会被旋转360°。参数说明参数描述x在文档单位中,指定左上角坐标的水平位置y在文档单位中,指定左上角坐标的垂直位置Width指定文档单位中的水平度量Height指定文档单位中的垂直度量...原创 2019-01-29 20:14:14 · 1353 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建一个矩形 Layer.CreateRectangle
Layer.CreateRectangle 方法用来在图层上创建一个矩形。该方法使用矩形左上角和右下角的坐标作为参数,并可选地使用每个角的圆度,用于创建圆角矩形。参数说明参数描述Left指定从矩形左侧到页面框架左侧的距离。此值以文档单位度量。Top指定从矩形顶部到页面框架顶部的距离。此值以文档单位度量。Right指定从矩形的右侧到页面帧的右侧的距离。此值以...原创 2019-01-29 20:13:13 · 1109 阅读 · 0 评论 -
CorelDRAW VBA - 使用中心点和半径在图层上创建对称多边形 Layer.CreatePolygon2
Layer.CreatePolygon2 方法用来在图层上使用中心点和半径创建一个对称的多边形。参数说明参数描述CenterX指定中心点的x坐标CenterY指定中心点的y坐标Radius指定多边形的半径Sides指定多边形中的边数,从3到500。Angle角度,此参数是可选的,其默认值为0。InnerRadius内部圆角,此参数是...原创 2019-01-29 20:12:11 · 436 阅读 · 0 评论 -
CorelDRAW VBA - 在图层的指定位置创建一个多边形 Layer.CreatePolygon
Layer.CreatePolygon 方法用来在图层的指定位置创建一个多边形,本文演示在当前活动图层上创建一个星形。参数说明参数描述Left在文档单位中,指定从多边形左侧到页面框架左侧的距离Top在文档单位中,指定从多边形顶部到页面框架顶部的距离Right在文档单位中,指定从多边形右侧到页面框架右侧的距离Bottom指定从多边形底部到页面框架底部...原创 2019-01-27 11:25:43 · 853 阅读 · 0 评论 -
CorelDRAW VBA - 在图层的指定位置以Unicode格式创建段落文本 Layer.CreateParagraphTextWide
Layer.CreateParagraphTextWide 方法用来在图层的指定位置以 Unicode 格式创建段落文本。参数说明参数描述Left指定从段落-文本框架的左侧到页面框架的左侧的距离Top指定从段落-文本框架顶部到页面框架顶部的距离Right指定段落-文本框架右侧到页面框架右侧的距离Bottom指定从段落-文本框架底部到页面框架底部的距...原创 2019-01-27 11:24:44 · 474 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建段落文本 Layer.CreateParagraphText
Layer.CreateParagraphText 方法用来在图层上创建段落文本,本文演示在当前活动图层上创建一个段落文本对象,该对象的格式为粗体的Times New Roman 字体。参数说明参数描述Left在文档单位中,指定段落-文本框架左侧到页面框架左侧的距离Top在文档单位中,指定段落-文本框架顶部到页面框架顶部的距离Right在文档单位中,指定段...原创 2019-01-25 14:38:02 · 671 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上从文件创建一个新的OLE对象 Layer. CreateOLEObjectFromFile
Layer.CreateOLEObjectFromFile 方法用来在图层上从文件创建一个新的OLE对象。OLE(Object Linking and Embedding,对象连接与嵌入)。是一种面向对象的技术,利用这种技术可开发可重复使用的软件组件(COM)。OLE对象介绍OLE(Object Linking and Embedding,对象连接与嵌入)。是一种面向对象的技术,利用这种技术可...原创 2019-01-25 14:36:59 · 779 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建一个新的OLE对象 Layer.CreateOLEObject
Layer.CreateOLEObject 方法用来在图层上创建一个新的OLE对象。参数说明参数描述ObjectID指定OLE对象的IDDisplayAsIcon指定是否将OLE对象显示为图标。此参数是可选的,其默认值为False。Caption为OLE对象指定标题。此参数是可选的。Icon为OLE对象指定一个图标。此参数是可选的。原创声明...原创 2019-01-24 15:55:51 · 1110 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建由单个线段组成的曲线 Layer.CreateLineSegment
Layer.CreateLineSegment 方法用来在图层上创建一条由单个线段组成的曲线,本文演示在当前活动图层上创建一个线段。参数说明参数描述StartXStartXStartY指定线段起始点的y坐标。此值以文档单位度量。EndX指定线段终点的x坐标。此值以文档单位度量。EndY指定线段终点的y坐标。此值以文档单位度量。VBA参考代码...原创 2019-01-24 15:54:46 · 566 阅读 · 0 评论 -
CorelDRAW VBA - 使用一个点和一个角度,在图层上创建导线 Layer.CreateGuideAngle
Layer.CreateGuideAngle 方法使用一个点和一个角度,在图层上创建导线,本文演示在页面中心创建相交的10条导线。参数说明参数描述x为定义导线的点指定x坐标。此值以文档单位度量。y为定义导线的点指定y坐标。此值以文档单位度量。Angle指定导线倾斜的程度。数值范围从0到360度。VBA参考代码下面的VBA示例创建了在页面中心相交的1...原创 2019-01-24 15:53:07 · 409 阅读 · 0 评论 -
CorelDRAW VBA - 使用两个点在图层上创建一个导线(辅助线) Layer.CreateGuide
Layer.CreateGuide 方法用来在图层上使用两个点创建一个导线(辅助线),本文演示使用导线将页面分成 4 * 8个矩形。参数说明参数描述x1为定义导线的第一个点指定x坐标。此值以文档单位度量。y1为定义导线的第一个点指定y坐标。此值以文档单位度量。x2指定定义导线的第二个点的x坐标。此值以文档单位度量。y2为定义导线的第二个点指定y坐标...原创 2019-01-24 15:51:05 · 587 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建一组矩形(类似于使用图形纸工具) Layer.CreateGridBoxes
Layer.CreateGridBoxes 方法用来在图层上创建一组矩形(类似于使用图形纸工具)。参数说明参数描述Left指定从第一个矩形网格框的左侧到页面框架的左侧的距离。此值以文档单位度量。Top指定从第一个矩形网格框顶部到页面框架顶部的距离。此值以文档单位度量。Right指定从第一个矩形网格框的右侧到页面框架的右侧的距离。此值以文档单位度量。B...原创 2019-01-24 15:49:50 · 481 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建与形状无关的连接器线 Layer.CreateFreeConnector
Layer.CreateFreeConnector 方法用来在图层上创建一个不连接到任何形状的连接器线。参数说明参数描述x1指定连接器线起始点的x坐标。此值以文档单位度量。y1指定连接器线起始点的y坐标。此值以文档单位度量。x2指定连接器线端点的x坐标。此值以文档单位度量。y2指定连接器线端点的y坐标。此值以文档单位度量。VBA参考代码下面...原创 2019-01-24 15:48:53 · 225 阅读 · 0 评论 -
CorelDRAW VBA - 使用指定的矩形区域在图层上创建椭圆
Layer.CreateEllipseRect 方法使用指定的矩形区域在图层上创建椭圆。参数说明参数描述Rect指定矩形区域的边框StartAngle指定椭圆的起始角的度数。此参数是可选的,其默认值为90。EndAngle指定椭圆的结束角的度数。此参数是可选的,其默认值为90。Pie指定椭圆是否为饼图。此参数是可选的,其默认值为False。...原创 2019-01-24 14:18:49 · 376 阅读 · 0 评论 -
CorelDRAW VBA - 使用形状中心、水平半径和垂直半径在图层上创建椭圆
Layer.CreateEllipse2 方法使用形状中心、水平半径和垂直半径(如果需要的话)在图层上创建椭圆。本文演示在页面中间创建一个黄色圆圈,并在其上方创建一个绿色椭圆。参数说明参数描述CenterX在文档单元中,指定中心点的x坐标CenterY在文档单元中,指定中心点的y坐标Radius1在文档单位中,指定从中心点的x坐标到圆周的测量Radi...原创 2019-01-22 09:27:32 · 640 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建一个椭圆形状 Layer.CreateEllipse
Layer.CreateEllipse方法用来在图层上创建椭圆形状,本文演示在页面的左下角创建一个矩形,其中包含一个红色椭圆。参数说明参数描述Left在文档单位中,指定从椭圆左侧到页面框架左侧的距离Top在文档单位中,指定从椭圆顶部到页面框架顶部的距离Right在文档单位中,指定从椭圆的右侧到页面框架的右侧的距离Bottom在文档单位中,指定从椭圆...原创 2019-01-22 09:11:12 · 648 阅读 · 0 评论 -
CorelDRAW VBA - 在图层上创建自定义形状(用表格创建日历)Layer.CreateCustomShape
Layer.CreateCustomShape方法用来在图层上创建一个自定义形状,本文演示表格的创建,通过表格创建一个简单的日历。参数说明参数描述TypeID指定所需自定义形状的类型IDParameter指定所需自定义形状的参数创建表格CorelDRAW通过使用定制的形状支持表格的自动化。下面是创建表的语法:Function CreateCustomSh...原创 2019-01-22 09:11:20 · 733 阅读 · 0 评论 -
CorelDRAW VBA - 使用指定的控制点坐标在图层的指定位置创建曲线段 Layer.CreateCurveSegment2
Layer.CreateCurveSegment2方法使用指定的控制点在图层的指定位置上坐标创建曲线段。本文演示在当前活动图层上创建一条曲线并沿着曲线添加一个文本“曲线上的文本”,然后将文本居中放置。参数说明参数描述x1指定曲线段起始点的x坐标。此值以文档单位度量。y1指定曲线段起始点的y坐标。此值以文档单位度量。StartingControlPointX...原创 2019-01-22 09:11:31 · 932 阅读 · 0 评论 -
CorelDRAW VBA - 在图层的指定位置创建曲线段 Layer.CreateCurveSegment
Layer.CreateCurveSegment方法用来在图层的指定位置创建曲线段。参数说明参数描述StartX在文档单位中,指定曲线段起始点的x坐标StartY在文档单位中,指定曲线段起始点的y坐标EndX在文档单位中,指定曲线段终点的x坐标EndY在文档单位中,指定曲线段终点的y坐标StartingControlPointLength在...原创 2019-01-22 09:11:39 · 497 阅读 · 0 评论