coreldraw 图片导入

    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

当前主页