Question

我正在尝试在单词2013中创建一个宏。我的目的是将图片添加到当前页面，而不是设置其大小和位置。我的问题是我无法设置它的布局选项：我希望它“在文本后面”和“在页面上修复位置”。

这是我的代码：

＃

Sub myMacro()
    Set bla = ActiveDocument.Shapes.AddPicture _
    (FileName:="\\\image_path///", _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=28.34, _
    Top:=500, _
    Width:=107, _
    Height:=107)
End Sub

＃

谢谢！

Answer 1

你通过bla做到了。当您调用ActiveDocument.Shapes.AddPicture时，它返回一个Shape对象。在你的情况下，你将它传递给blah并忽略它。

要设置要包裹的形状，可以在创建blah后执行此操作：

With bla
    .WrapFormat.Type = wdWrapBehind
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Left = InchesToPoints(3.0)
    .Top = InchesToPoints(4.2)
End With

wdRelativeHorizontalPositionPage和wdRelativeVerticalPositionPage表示坐标相对于当前页面的左侧和顶部。然后.left指定页面左边缘的英寸和.Top是从顶部开始的英寸数。

这些MSDN pages

上讨论了您可以在形状上调用的所有可用成员

单词2013宏添加＆编辑图片

1 个答案: