Layer.CreateCustomShape
方法用来在图层上创建一个自定義形状本文演示表格的创建,通过表格创建一个简单的日历
指定所需自定义形状的类型ID |
指定所需自定义形状的参数 |
CorelDRAW通过使用定制的形狀支持表格的自动化。下面是创建表的语法:
指定从表的左侧到页帧的左侧的距离此值以文档单位度量。 |
指定从表顶部到页帧顶部的距离此值以文档单位度量。 |
指定从表的右侧到页帧的右侧的距离此值以文档单位度量。 |
指定从表格底部到页面框架底部的距离此值以文檔单位度量。 |
下面的VBA示例创建一个文档其中包含2009年1月的日历,突出显示1月1日的单元格
' 创建一个7行7列的表格 ' 在第一行的每一列添加每一周的星期 ' 合并单元格,添加标题“一月”并居中 ' 在第13个单元格插入数字(即 1 + 12) ' 合并没有日期的单元格 ' 在不包含日期的单元格中填充 ' 在表格嘚形状周围画一个边框 ' 在表格形状的第1行周围加上边框 ' 在1月1日的单元格周围设置绿色边框
原创声明:本文首发于 《CorelDRAW VBA探秘》 独立站点请尊偅文章版权。