在excel中使用VBA在microsoft word中移动图像

问题描述

我正在尝试制作一个自动发票制作器，但我目前无法使用 Excel VBA 在 Word 文档中定位图像

图像可以很好地加载到 Word 文档中，但正是位置导致了我的问题。

编辑： 导致的具体问题是图像原本应位于页面顶部，但显示在插入的文本下方。

在此先感谢您的帮助

Set wordobject = CreateObject("Word.Application")

'create the document object and add documents to it
Set documentObject = wordobject.documents.Add

'setting logo
Set logoObject = documentObject.inlineshapes



'make it visible
wordobject.Visible = True

'create selection object
Set selectionObjectHeader = wordobject.Selection

'place the logo
logoObject.AddPicture ("C:\Users\conno\Documents\logo.png")

With logoObject
    .ConvertToShape
End With

With caniprelogoObject.Shapes(1)
    .Top = 100
    .Left = 100
End With

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）