corel draw vba 从入门到精通（百度贴吧专版，禁止转载）—实战2

赞

没有啊

水经验……

没有下载吗？

'======================================================================
Dim s As Shape '定义物体
Dim sa As Effect '定义效果
Set s=ActiveShape '设置物体为活动物体（当前选择物体）
Set sa=s.CreateExtrude(cdrExtrudeSmallBack,_ '为标题添加挤出特效
'创建挤出 挤出样式
cdrVPLockedToShape,0,-0.2,,cdrExtrudeSolidFill,CreateCMYKColor(100,20,20,50))
'锁定方式 水平方向，垂直方向，挤出颜色样式，基础颜色
sa.Extrude.ExtrudeGroup.AddToSelection'添加挤出组到选择
Dim lk1 As Shape '定义边界1
Set lk1=ActiveSelection.CustomCommand("Boundary","CreateBoundary") '为选择对象创建边界
ActiveDocument.ClearSelection '全部取消选择
lk1.AddToSelection '添加边界到选择
Dim lk1a As Effect '定义边界1特效
Set lk1a=lk1.CreateContour(cdrContourOutside,0.02,1) '为边界1创建轮廓特效
'轮廓 外轮廓，大小，布幅
lk1a.Contour.ContourGroup.AddToSelection '添加轮廓组到选择
Dim lk2 As Shape '定义边界2
Set lk2=ActiveSelection.CustomCommand("Boundary","CreateBoundary") '为所选对象创建边界
ActiveSelection.Delete '删除边界1及边界1组
ActiveDocument.ClearSelection '取消选择
lk2.AddToSelection '添加边界2到选择
lk2.Fill.UniformColor.CMYKAssign 100,20,20,30 '为边界2指定填充
lk2.Outline.SetNoOutline '边界2向下移动一次
Dim lk2a As Effect '定义边界2特效
Set lk2a=lk2.CreateExtrude(cdrExtrudeSmallBack,cdrVPLockedToShape,0,-0.2,,cdrExtrudeSolidFill,_CreateCMYKColor(100,20,20,40)) '为边界2指定特效
'======================================================================
我也是用的X4里面的VB，但是老是提示什么字符有问题，我把下划线“_”删了又提示变量有问题

露珠好高冷