MS Word宏VBA帮助，已选择图像

Question

我具有基本的Macro和VBA知识，但是无法弄清楚我在哪里出错了。 （代码插入底部）我希望宏将选定的图像移到页面的顶部中心。 我面临的问题是，它不适用于文档中的每个图像，它适用于第一个图像，然后不再执行任务。 我正在使用Microsoft Word 2016。

main命令执行了我想要的操作，我觉得我的错误在这两行之内

Set myDocument = ActiveDocument
With myDocument.Shapes(1)

---

整个代码；

Sub AlignToCentre()
'
' AlignToCentre

    Dim shp As Shape
Set myDocument = ActiveDocument
With myDocument.Shapes(1)
        .WrapFormat.Type = wdWrapSquare
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = wdShapeCenter
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = InchesToPoints(1)

    End With
End Sub

Answer 1

如果您希望它与选定的图像一起使用，并且仅与选定的图像一起使用，则更像这样，您可以从当前选择中获得形状。

请注意如何首先检查以确保选择了“形状” ...

Sub PositionSelectedShape()
    Dim sel As word.Selection
    Dim shp As word.Shape

    Set sel = Selection
    If sel.Type = wdSelectionShape Then
        Set shp = sel.ShapeRange(1)
        With shp
            .WrapFormat.Type = wdWrapSquare
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .Left = wdShapeCenter
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .Top = InchesToPoints(1)
        End With
    End If
End Sub

Answer 2

就像Kim Raaness所建议的那样，您需要遍历想要将所有形状居中的所有形状。

尝试这样的事情：

Sub AlignToCentre()
'
' AlignToCentre

    Dim shp As Shape
Set myDocument = ActiveDocument
For Each shp in myDocument.Shapes
  With shp
        .WrapFormat.Type = wdWrapSquare
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = wdShapeCenter
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = InchesToPoints(1)
  End With
Next shp
End Sub