Word2010里用宏把图片设置为四周环绕，水平居中，垂直居中

biyesheji

我自己写了一个宏，如下：
Sub AdjustPic()

  Dim oShape As Variant
   
        For Each oShape In ActiveDocument.InlineShapes
            Set oShape = oShape.ConvertToShape
            With oShape
             .WrapFormat.Type = 0
             .Top = -999995
             .Left = -999995
            End With
        Next
   
End Sub
但是运行完后，实际图片显示垂直并不居中

而查看图片“大小和位置”时，却写着垂直居中

请问这是怎么回事，要怎么改图片才会居中显示啊？

biyesheji

是不是因为勾选了“对象随文字移动”的原因？如果是的话，怎么在VBA里把这个选项去掉？

specter119

我也特别想学习和排版有关的图片宏

jaffedream

嘿嘿，加两句代码就解决了。

1. Sub AdjustPic()
   
2.     Dim oShape As Variant
   
3.     For Each oShape In ActiveDocument.InlineShapes
   
4.         Set oShape = oShape.ConvertToShape
   
5.         With oShape
   
6.             .WrapFormat.Type = 1
   
7.             .Top = -999995
   
8.             .Left = -999995
   
9.             .RelativeHorizontalPosition = WdRelativeHorizontalPosition.wdRelativeHorizontalPositionMargin
   
10.             .RelativeVerticalPosition = WdRelativeVerticalPosition.wdRelativeVerticalPositionMargin
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

梦亦相思

谢谢 感谢分享

aa868682008

真的十分感谢。