基于Coreldraw 10进行VBA二次开发和实例解析.docVIP

基于Coreldraw 10进行VBA二次开发和实例解析 作者：司连法 第一部分?6 第一章??VBA概述?6 1.1??什么是VBA?6 1.2??VB、VBA和VBScript?7 1.3??VBA的安装?7 1.4??VBA编辑器?8 1.5?一个简单VBA程序?20 第二章??VBA程序设计基础?24 2.1 VBA与CorelDRAW10?24 2.2??数据类型、运算符与表达式?24 2.3?过程?36 2.4逻辑运算和判断控制?41 2.5??循环控制?45 2.6??程序控件?50 2.7?程序调试和错误处理?61 第三章??VBA在CorelDraw10中的应用?72 3.1?输出文本及其坐标为文本文件?74 3.2?添加菜单和工具条?89 3.3?输出数据库文件?90 第四章?VBA实例?107 4.1?实例1：查找相同对象?107 4.2?实例2：查找并替换相同对象?113 4.3?实例3：为等高线自动设色?121 4.4?实例4：输出多边形内文本为文本文件?124 4.5?实例5：输出多边形内文本为数据库文件?132 4.6?实例6：全部关闭或打开图层?137 4.7?实例7：裁切阴影效果图形?139 4.8?实例7：裁出多边形内的图形?142 第二部分?147 第六章?VBA 6.0 for CorelDraw10开发参考?147 类:ActiveView?147 Application:?147 OriginX?148 OriginY?148 Parent?148 Type?149 Zoom?149 SetActualSize()?149 SetViewPoint(ByVal X AS Double, ByVal Y AS Double, ByVal Zoom AS Double)??????????????149 ToFitAllObjects()?150 ToFitArea(ByVal Left AS Double, ByVal Top AS Double, ByVal Right AS Double, ByVal Bottom AS Double)????150 ToFitPage()?150 ToFitPageHeight()?151 ToFitPageWidth()?151 ToFitSelection()?151 ToFitShape(ByRef Shape AS Shape)?151 ToFitShapeRange(ByRef ShapeRange AS ShapeRange)?151 类：AddinHook?152 Application?152 Parent?152 Filter?152 Execute()?152 New(ByRef NewDocument AS Document)?152 ShapeCreated(ByRef NewShape AS Shape)?152 WhileDrawing(ByRef TheShape AS Shape, ByRef X AS Long, ByRef Y AS Long)???????????152 类：AddIns?152 Application?152 Collection?153 Parent?153 Attach ( ByVal Filter AS cdrAddinFilter, ByVal ExecuteCommandPrompt AS String )????????153 类：Application?153 ActiveDocument?153 ActiveLayer?153 ActivePage?154 ActivePalette?154 ActiveSelection?154 ActiveSelectionRange?155 ActiveShape?155 ActiveTool?155 ActiveWindow?156 ActiveWorkspace?156 AddIns?156 Application?156 AppWindow?157 ArrowHeads?157 Clipboard?157 CommandBars?158 ConfigPath?158 Documents?158 EventsEnabled?158 FontList?159 Optimization?159 GMSManager?160 MainMenu?160 OutlineStyles?160 Palettes?161 PanoseMatching?161 Parent?161 Path?162 PatternCanvases?162 Printers?163 PrintJob?163 Rec