如何打开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

...全文
146 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-Python 发布问题, 以便更快地解决您的疑问

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧