CORELDRAWX4 宏使用 工具 -》宏记录-》
Dim impopt As StructImportOptions
Set impopt = CreateStructImportOptions
impopt.Mode = cdrImportFull
Dim impflt As ImportFilter
Set impflt = ActiveLayer.ImportEx("文件名", cdrPSD, impopt) 'psd文件 cdrPSD ;png,cdrPNG JPG cdrJPEG
impflt.Finish
Dim s1 As Shape
Set s1 = ActiveShape
'0按比例缩放尺寸
s1.setsize 2/25.4,0
Set s2 = ActiveLayer.CreateRectangle(1.043776, 8.240575, 3.437894, 5.178331)
’对齐
grp1.AlignToShape cdrAlignLeft + cdrAlignRight, s2, cdrTextAlignBoundingBox
grp1.AlignToShape cdrAlignTop + cdrAlignBottom, s2, cdrTextAlignBoundingBox
‘总页数
application.activedocument.pages.count
当前活动文档 activedocument
当前活动页 activelayer
当前主页