通过VBA插入的图片如何设置在第二页的某个位子

wushaofeng90022 · 发表于 2011-1-11 11:18

如题.现在本人要插入一张图片.通过VBA设置其所在位置.但只能设置在第一页中.故此请问各位高手们.如何插入图片的时候定位图片在N页中呢.?望有知情者告诉下,谢谢,贴上代码.:

Set obj = oWord.ActiveDocument.Shapes.AddPicture(s_filePath, False, True)
'设置插入图片距离文档上边距
obj.Top = 1000
'设置插入图片距离文档左边距
obj.Left = 100
'设置插入图片宽度
obj.Width = 100
'设置插入图片高度
obj.Height = 200

c插入的高度为1000 文档中有4页插入的图片位置1000应该是在第二页.请问高手们.我要怎么做才能动态插入到当前页中.谢谢

wushaofeng90022 · 发表于 2011-1-11 11:19

按理说1000PT应该是在第二页中.但是这样插入的方式始终都是在第一页.也就是溢出而并没有插入到第二页中.我想要插入的时候定位到当前页中.如何实现.?谢谢.

sylun · 发表于 2011-1-11 12:36

可以添加相关参数。根据帮助文件，AddPicture方法使用的各参数如下：
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)
其中：
Anchor Variant 类型，可选。指定图片的锁定区域。如果指定了 Anchor，锁定标记位于锁定区域第一段的段首。如果忽略此参数，则自动放置锁定标记，而图片参照页面的上边缘和左边缘定位。

可试将上面的代码作如下修改，看看效果：
Set obj = ActiveDocument.Shapes.AddPicture(s_filePath, False, True, 50, 0, , , Selection.Range)

wushaofeng90022 · 发表于 2011-1-11 15:22

万分感谢.我也是纠结在这个参数上面了.描述的不是很清晰,谢谢您了.好人有好报.

wushaofeng90022 · 发表于 2011-1-11 15:31

能否在请教您下.如何插入到当前编辑页内.而不是当前光标处,如,我有N页,光标在第一页,我拉到第三页插入.这时候我该如何设置.谢谢了.文档中的属性解释的很模糊.本人擅长于服务端编程.万分感谢.

sylun · 发表于 2011-1-11 18:04

可试试如下代码，在活动文档第3页（假设文档超过3页）插入图片：
Set myRange = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, 3)
Set obj = ActiveDocument.Shapes.AddPicture(s_filePath, False, True, 50, 0, , , myRange)

wushaofeng90022 · 发表于 2011-1-12 09:35

非常感谢您在百忙之中抽出时间来回答我的问题,是这样子的.可能我没有描述清楚.我想如何获插入到我当前的文档中.至于这个文档页是不定的,比如说,我文档是300页.我这时候滚动到20,50,73页这样,点击插入即插入当我当前文档页中,但是页数也页码不定.如用你上策代码.我该如何获取到我当前的显示页码,此时光标并不在此页.若您有时间的话,忘您能抽空看下,回复一下,卡这个问题已经好久了.鄙人感激不尽.

wushaofeng90022 · 发表于 2011-1-12 09:54

补充一下,就是获取到我当前查看的页码.插入图片,就是在这里我如何获取到当前查看的页码.或者有没有方式,是光标移到当前查看页码中呢.谢谢.

sylun · 发表于 2011-1-12 14:10

原帖由 wushaofeng90022 于 2011-1-12 09:54 发表
补充一下,就是获取到我当前查看的页码.插入图片,就是在这里我如何获取到当前查看的页码.或者有没有方式,是光标移到当前查看页码中呢.谢谢.

看看如下测试比较式的定位方法是否可靠（光标定位到当前查看页的开始位置）：

Sub GotoMyPage()
Dim a As Long
With ActiveDocument
a = .ActiveWindow.ActivePane.VerticalPercentScrolled
Selection.GoTo wdGoToPage, wdGoToAbsolute, Int(.Content.Information(wdActiveEndPageNumber) * a / 100 + 0.5)
Do While a > .ActiveWindow.ActivePane.VerticalPercentScrolled
Selection.MoveDown
Loop
End With
With ActiveDocument.Bookmarks("\page").Range
.Collapse wdCollapseStart
.Select
End With
End Sub

复制代码

当然，最好是能够读取到word编辑界面状态栏左侧显示的页码信息，但我没找到读取的方法。

wushaofeng90022 · 发表于 2011-1-12 14:32

谢谢您.您提供的方式是可以,但是只能运行第一次.第二次则使word无响应了.

		自动登录	找回密码
密码			免费注册

[求助] 通过VBA插入的图片如何设置在第二页的某个位子

补充一下.

回复 3楼 sylun 的帖子

回复 3楼 sylun 的帖子

回复 6楼 sylun 的帖子

回复 6楼 sylun 的帖子

回复 9楼 sylun 的帖子