如何在Word文档VB6的第二页定位图片
How To Position a Picture on A Second Page Of A Word Document VB6
我正在制作一个程序，重复创建未定义数量的页面，并且在所有页面的顶部是一个位于特定位置的徽标。如果我将所有内容都放在一个 for 循环中，并在最后包含这些命令以进行分页：
Set oRng = oDoc.Bookmarks("\EndOfDoc").Range
oRng.InsertBreak
我第二次（及以后）制作的 table 出现在下一页，但图像没有。我尝试将 "top" 属性 设置为
distFromTop + pageLength * pageNumber.
我假设它可能与锚点有关 属性，但我不知道它甚至获得什么数据类型或它如何影响展示位置
我使用以下方式插入图像：
oDoc.Shapes.AddPicture "C:\Users\name\Desktop\file.jpg", , , CentimetersToPoints(1.3), CentimetersToPoints(0.9 + pageLength * j), CentimetersToPoints(6.1), CentimetersToPoints(2.9)
图片添加了多次，但都添加到第一页顶部的 .9 和第一页左侧的 1.3。
如何让图片从某个页面的顶部开始变为 .9
编辑： 我想避免将它放在 header 中，因为那样会弄乱文档其他元素的对齐方式
好的，所以对我有用的是：
Set oRng = oDoc.Bookmarks("\EndOfDoc").Range
oRng.InsertBreak
oDoc.Shapes.AddPicture "C:\Users\me\Desktop\file.jpg", , , CentimetersToPoints(1.3),
CentimetersToPoints(0.9), CentimetersToPoints(6.1), CentimetersToPoints(2.9),
oDoc.Bookmarks("\EndOfDoc").Range
我仍然不太明白为什么它会起作用，因为范围对象/锚点的文档对我来说很难理解……我试过了并且成功了。出于我的目的，它有效，但如果有人知道为什么它有效，我很想知道
感谢您的回答
我正在制作一个程序，重复创建未定义数量的页面，并且在所有页面的顶部是一个位于特定位置的徽标。如果我将所有内容都放在一个 for 循环中，并在最后包含这些命令以进行分页：
Set oRng = oDoc.Bookmarks("\EndOfDoc").Range
oRng.InsertBreak
我第二次（及以后）制作的 table 出现在下一页，但图像没有。我尝试将 "top" 属性 设置为
distFromTop + pageLength * pageNumber.
我假设它可能与锚点有关 属性，但我不知道它甚至获得什么数据类型或它如何影响展示位置 我使用以下方式插入图像：
oDoc.Shapes.AddPicture "C:\Users\name\Desktop\file.jpg", , , CentimetersToPoints(1.3), CentimetersToPoints(0.9 + pageLength * j), CentimetersToPoints(6.1), CentimetersToPoints(2.9)
图片添加了多次，但都添加到第一页顶部的 .9 和第一页左侧的 1.3。
如何让图片从某个页面的顶部开始变为 .9
编辑： 我想避免将它放在 header 中，因为那样会弄乱文档其他元素的对齐方式
好的，所以对我有用的是：
Set oRng = oDoc.Bookmarks("\EndOfDoc").Range
oRng.InsertBreak
oDoc.Shapes.AddPicture "C:\Users\me\Desktop\file.jpg", , , CentimetersToPoints(1.3),
CentimetersToPoints(0.9), CentimetersToPoints(6.1), CentimetersToPoints(2.9),
oDoc.Bookmarks("\EndOfDoc").Range
我仍然不太明白为什么它会起作用，因为范围对象/锚点的文档对我来说很难理解……我试过了并且成功了。出于我的目的，它有效，但如果有人知道为什么它有效，我很想知道
感谢您的回答