如何打开cdr文件就自动加载宏

leaves5338 2022-04-04 16:34:17

自己做的一个宏,却一个功能就是打开文件即加载宏,网上的一段宏程序如下,但是实现不了

Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
    Const width = 297
    Const height = 420
    Doc.Unit = cdrMillimeter
    Doc.ActivePage.SetSize width, height
    Dim sh As Shape
    'Dim filePath As String
    Dim name As String
    Set sh = Doc.ActivePage.SelectShapesFromRectangle(-10000, -10000, 10000, 10000, True)
    sh.CenterX = width / 2
    sh.CenterY = height / 2 
    Doc.Save
    Doc.PrintOut
End Sub

...全文
26 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐
发帖
VBA
加入

2167

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
申请成为版主
帖子事件
创建了帖子
2022-04-04 16:34
社区公告
暂无公告