Zebe

本专栏是CDR插件技术网（原VBA探秘）网站早期文章的专栏，内容相对比较零散，且文章内容比较短，很多是代码片，具有一定参考价值，本专栏内容不会再更新，因为博主已经在写更加高质量的精品文章专栏。本专栏的所有内容，可以直接到博主的官方站点（CDR插件技术网）查看完整全文，不用付费订阅本专栏。因有人订阅了专栏，导致本专栏无法再改为【免费】模式，且价格已是最低的9.9，请读者在订阅专栏时自己评估，不要订阅了又觉得不值钱，请读者朋友仔细看完所有文章，再发表你的意见，请读者朋友知悉！针对所有订阅本专栏的朋友，如果你

美术字文本不能转换为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

读取本地磁盘中的文本文件，将文本文件的内容插入到文本块的指定位置。参考代码Sub test() ' 将当前选中美术字的（部分）文本内容，导出到D盘下面的 temp.txt 文件中 ActiveShape.Text.ExportToFile "D:\temp.txt", 2, 4, cdrParagraphIndexing ' 从文件导入内容，并指定插入到美术字的位置 ActiveShape.Text.ImportFromFile "D:\temp.txt", 1, cdrParagraph

创建一个美术字文本对象，并用消息框显示第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") ' 取得

本函数用来获取页面边框范围内的所有图形，返回指定页面 p 边框范围内的所有形状，返回类型为 Shapes。具体请参考以下代码实现：VBA参考代码'================================================================' 获取页面边框范围内的所有图形' p: 页面对象' 返回: 指定页面 p 边框范围内的所有形状'======...

将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。参考代码Sub test() ' 定义形状变量 Dim s As Shape ' 遍历当前页面所有的文本形状（通过查找） For Each s In ActivePage.FindShapes(, cdrTextShape) ' 替换 # 为当前日期 s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next sEnd

将指定的美术字文本，沿着指定的路径进行排列，并指定文本的排列效果。参考代码Sub test() ' 定义美术字变量、椭圆变量 Dim sText As Shape, sEllipse As Shape ' 创建一个美术字 Set sText = ActiveLayer.CreateArtisticText(0, 0, "WWW.CDRVBA.COM") ' 创建椭圆 Set sEllipse = ActiveLayer.CreateEllipse2(...

在排列段落文本时，经常会遇到由于段落文本内容较多，导致超出的内容没有在段落文本框内部完全显示，也就是常说的文本溢出的情况。本文介绍将文本适合到它的框架，即匹配到文本的框架大小，可以解决文本溢出的问题。参考代码Sub test() Dim doc As Document Dim s As Shape Dim t As Text ' 创建文档 Set doc = CreateDocument ' 创建段落文本 Set s = doc.ActiveLayer.CreateParagraph

在文本内容中查找、搜索指定的文本字符串，可以指定是否忽略大小写、查找起始位置、文本是否遵循对象的形状或边框的路径、指定要查找的文本索引类型等。索引类型可以是字符、单词或段落。使用 Text 类提供的 Find 方法，可以实现文本的查找、搜索，尤其适合在段落文本中进行查找、搜索，速度较快。参数说明参数 描述 Text Text 指定要查找的文本。字符串必须包含在引号中。 CaseSensitive 确定是否匹配text参数中的文本的大小写（是否大小写敏感）。 S...

过 Text 文本对象的ExportToFile 方法，可以实现对文本内容的导出功能。例如可以指定导出某个段落文本的指定段落范围。参数说明参数 描述 FileName 指定文本导出到的文件的完整路径和文件名 StartIndex 指定文本范围中的第一个文本对象 Count 指定范围内的项数 IndexingType 指定要索引的文本类型。索引类型可以是字符、单词或段落。参数IndexingType返回cdrTextIndexingType的值。这个参数.

本文主要介绍将文档保存或者另存为X4版本的VBA代码实现，用到了 CorelScriptTools（Corel脚本工具）的GetFileBox 方法来打开文件对话框，使用Document（文档对象）的 Dirty 属性来判断文档在上一次保存后是否修改过。参考代码Sub saveAsX4() ' 定义结构化保存选项 Dim opt As New StructSaveAsOptions ' 定义保存路径 Dim path As String ' 判断文档是否..

以下是按照面积对形状进行排序的代码，仅供参考。Sub 按面积排序曲线物件() ' For diaogangxiong ActivePage.Shapes.All.CreateSelection’全选 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ConvertToCurves’转曲线 Dim grp1 As ShapeRange

Zebra VBA Framework（斑马框架） 是由 VBA探秘 发布的一款适用于 CorelDRAW X4(及以上版本) 软件，基于 VBA 语言来实现的一个快速开发框架。使用者只需要通过框架提供的类，使用很少的代码，就可以实现常见的功能，极大地简化类VBA插件开发过程，使开发者更加专注于插件自身业务逻辑的编写，让新手也能快速编写自己的插件。框架介绍Zebra VBA ...

在 CorelDRAW VBA 中，可以通过 Page 对象的 SelectShapesFromRectangle 方法选中某个矩形范围内的所有其他形状，选中后得到选中的形状，再执行群组，就实现了矩形内组，一般也可以叫做智能群组。准备工作在页面上绘制一个矩形，大致的效果如下图所示：首先选中最大的矩形外框，然后在VBA编辑器中，编写一个过程并运行该过程，就可以发现矩形内部的形状都被选中，并...

在 CorelDRAW VBA 中，可以通过 Bitmap 对象的 ResolutionX 和 ResolutionY 属性来获取图像的水平分辨率和垂直分辨率。代码参考请在打开的 CorelDRAW 文档页面中导入一幅图像，并将其选中，然后在VBA编辑中运行以下代码演示获取当前选中图像的水平分辨率。MsgBox "当前选中图像的水平分辨率是：" & ActiveShape.Bitm...

本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框，选择文件并获得文件路径的VBA代码。其提供的 GetFileBox 方法可用来打开文件对话框（或者另存为对话框）。CorelScriptToolsCorelScriptTools 是Corel官方提供的一个脚本工具，可以用来执行很多有用的操作。比如 GetFileBox 方法就可以用来...

Layer.CustomCommand 方法用来执行组件提供的特定于某个图层的命令。例如，您可以使用 CustomCommand方法来执行表相关的命令，方法是使用 Table 开头的类。参数说明参数描述ComponentID指定所需组件的IDCommandID指定所需命令的IDParameter指定所需的参数原创声明：本文首发于 《CorelDRA...

Layer.CreateSymbol 方法用来在图层的指定位置创建一个符号实例。参数说明参数描述x指定放置符号的x坐标y指定放置符号的y坐标SymbolName指定符号的名称Library指定库的名称。此参数是可选的，其默认值为Nothing。原创声明：本文首发于 《CorelDRAW VBA探秘》 独立站点，请尊重文章版权。转载请注明原...

Layer.CreateSpiral 方法用来在图层上创建一个螺旋形状。本文演示在当前活动图层上创建一个对数螺旋。螺旋有四圈，每圈的生长因子为100。参数说明参数描述Left在文档单位中，指定从螺旋的左侧到页面框架的左侧的距离Top在文档单位中，指定从螺旋顶部到页面框架顶部的距离Right在文档单位中，指定从螺旋的右侧到页面框架的右侧的距离Botto...

Layer.CreateRightAngleConnector 方法用来在图层上创建直角连接器线。参数说明参数描述Start指定连接行对象的起点End指定连接线对象的结束点CornerRadius指定角半径。此参数是可选的，其默认值为0。原创声明：本文首发于 《CorelDRAW VBA探秘》 独立站点，请尊重文章版权。转载请注明原文链接：htt...

Layer.CreateRectangleRect 方法用来在图层上使用指定的矩形区域在图层上创建矩形。参数说明参数描述x在文档单位中，指定左上角坐标的水平位置y在文档单位中，指定左上角坐标的垂直位置Width指定文档单位中的水平度量Height指定文档单位中的垂直度量RadiusUL指定左上角的实际角半径测量值。此参数是可选的，其默认值为...

Layer.CreateRectangle2 方法用来在图层上使用左上角的坐标、宽度、高度和角半径在图层上创建矩形，本文演示创建两个矩形之间的混合。中间混合对象会被旋转360°。参数说明参数描述x在文档单位中，指定左上角坐标的水平位置y在文档单位中，指定左上角坐标的垂直位置Width指定文档单位中的水平度量Height指定文档单位中的垂直度量...

Layer.CreateRectangle 方法用来在图层上创建一个矩形。该方法使用矩形左上角和右下角的坐标作为参数，并可选地使用每个角的圆度，用于创建圆角矩形。参数说明参数描述Left指定从矩形左侧到页面框架左侧的距离。此值以文档单位度量。Top指定从矩形顶部到页面框架顶部的距离。此值以文档单位度量。Right指定从矩形的右侧到页面帧的右侧的距离。此值以...

Layer.CreatePolygon2 方法用来在图层上使用中心点和半径创建一个对称的多边形。参数说明参数描述CenterX指定中心点的x坐标CenterY指定中心点的y坐标Radius指定多边形的半径Sides指定多边形中的边数，从3到500。Angle角度，此参数是可选的，其默认值为0。InnerRadius内部圆角，此参数是...

Layer.CreatePolygon 方法用来在图层的指定位置创建一个多边形，本文演示在当前活动图层上创建一个星形。参数说明参数描述Left在文档单位中，指定从多边形左侧到页面框架左侧的距离Top在文档单位中，指定从多边形顶部到页面框架顶部的距离Right在文档单位中，指定从多边形右侧到页面框架右侧的距离Bottom指定从多边形底部到页面框架底部...

Layer.CreateParagraphTextWide 方法用来在图层的指定位置以 Unicode 格式创建段落文本。参数说明参数描述Left指定从段落-文本框架的左侧到页面框架的左侧的距离Top指定从段落-文本框架顶部到页面框架顶部的距离Right指定段落-文本框架右侧到页面框架右侧的距离Bottom指定从段落-文本框架底部到页面框架底部的距...

Layer.CreateParagraphText 方法用来在图层上创建段落文本，本文演示在当前活动图层上创建一个段落文本对象，该对象的格式为粗体的Times New Roman 字体。参数说明参数描述Left在文档单位中，指定段落-文本框架左侧到页面框架左侧的距离Top在文档单位中，指定段落-文本框架顶部到页面框架顶部的距离Right在文档单位中，指定段...

Layer.CreateOLEObjectFromFile 方法用来在图层上从文件创建一个新的OLE对象。OLE（Object Linking and Embedding，对象连接与嵌入）。是一种面向对象的技术，利用这种技术可开发可重复使用的软件组件（COM）。OLE对象介绍OLE（Object Linking and Embedding，对象连接与嵌入）。是一种面向对象的技术，利用这种技术可...

Layer.CreateOLEObject 方法用来在图层上创建一个新的OLE对象。参数说明参数描述ObjectID指定OLE对象的IDDisplayAsIcon指定是否将OLE对象显示为图标。此参数是可选的，其默认值为False。Caption为OLE对象指定标题。此参数是可选的。Icon为OLE对象指定一个图标。此参数是可选的。原创声明...

Layer.CreateLineSegment 方法用来在图层上创建一条由单个线段组成的曲线，本文演示在当前活动图层上创建一个线段。参数说明参数描述StartXStartXStartY指定线段起始点的y坐标。此值以文档单位度量。EndX指定线段终点的x坐标。此值以文档单位度量。EndY指定线段终点的y坐标。此值以文档单位度量。VBA参考代码...

Layer.CreateGuideAngle 方法使用一个点和一个角度，在图层上创建导线，本文演示在页面中心创建相交的10条导线。参数说明参数描述x为定义导线的点指定x坐标。此值以文档单位度量。y为定义导线的点指定y坐标。此值以文档单位度量。Angle指定导线倾斜的程度。数值范围从0到360度。VBA参考代码下面的VBA示例创建了在页面中心相交的1...

Layer.CreateGuide 方法用来在图层上使用两个点创建一个导线（辅助线），本文演示使用导线将页面分成 4 * 8个矩形。参数说明参数描述x1为定义导线的第一个点指定x坐标。此值以文档单位度量。y1为定义导线的第一个点指定y坐标。此值以文档单位度量。x2指定定义导线的第二个点的x坐标。此值以文档单位度量。y2为定义导线的第二个点指定y坐标...

Layer.CreateGridBoxes 方法用来在图层上创建一组矩形(类似于使用图形纸工具)。参数说明参数描述Left指定从第一个矩形网格框的左侧到页面框架的左侧的距离。此值以文档单位度量。Top指定从第一个矩形网格框顶部到页面框架顶部的距离。此值以文档单位度量。Right指定从第一个矩形网格框的右侧到页面框架的右侧的距离。此值以文档单位度量。B...

Layer.CreateFreeConnector 方法用来在图层上创建一个不连接到任何形状的连接器线。参数说明参数描述x1指定连接器线起始点的x坐标。此值以文档单位度量。y1指定连接器线起始点的y坐标。此值以文档单位度量。x2指定连接器线端点的x坐标。此值以文档单位度量。y2指定连接器线端点的y坐标。此值以文档单位度量。VBA参考代码下面...

Layer.CreateEllipseRect 方法使用指定的矩形区域在图层上创建椭圆。参数说明参数描述Rect指定矩形区域的边框StartAngle指定椭圆的起始角的度数。此参数是可选的，其默认值为90。EndAngle指定椭圆的结束角的度数。此参数是可选的，其默认值为90。Pie指定椭圆是否为饼图。此参数是可选的，其默认值为False。...

Layer.CreateEllipse2 方法使用形状中心、水平半径和垂直半径（如果需要的话）在图层上创建椭圆。本文演示在页面中间创建一个黄色圆圈，并在其上方创建一个绿色椭圆。参数说明参数描述CenterX在文档单元中，指定中心点的x坐标CenterY在文档单元中，指定中心点的y坐标Radius1在文档单位中，指定从中心点的x坐标到圆周的测量Radi...

Layer.CreateEllipse方法用来在图层上创建椭圆形状，本文演示在页面的左下角创建一个矩形，其中包含一个红色椭圆。参数说明参数描述Left在文档单位中，指定从椭圆左侧到页面框架左侧的距离Top在文档单位中，指定从椭圆顶部到页面框架顶部的距离Right在文档单位中，指定从椭圆的右侧到页面框架的右侧的距离Bottom在文档单位中，指定从椭圆...

Layer.CreateCustomShape方法用来在图层上创建一个自定义形状，本文演示表格的创建，通过表格创建一个简单的日历。参数说明参数描述TypeID指定所需自定义形状的类型IDParameter指定所需自定义形状的参数创建表格CorelDRAW通过使用定制的形状支持表格的自动化。下面是创建表的语法:Function CreateCustomSh...

Layer.CreateCurveSegment2方法使用指定的控制点在图层的指定位置上坐标创建曲线段。本文演示在当前活动图层上创建一条曲线并沿着曲线添加一个文本“曲线上的文本”，然后将文本居中放置。参数说明参数描述x1指定曲线段起始点的x坐标。此值以文档单位度量。y1指定曲线段起始点的y坐标。此值以文档单位度量。StartingControlPointX...

Layer.CreateCurveSegment方法用来在图层的指定位置创建曲线段。参数说明参数描述StartX在文档单位中，指定曲线段起始点的x坐标StartY在文档单位中，指定曲线段起始点的y坐标EndX在文档单位中，指定曲线段终点的x坐标EndY在文档单位中，指定曲线段终点的y坐标StartingControlPointLength在...