vba - 如何在 MS Publisher 的 VBA 中移动一堆文本框？

Question

有没有一种简单的方法可以改变 MS Publisher 中许多文本框的位置（水平和垂直）？我在哪里可以找到所有方法以及对宏编程的解释？

Answer 1

Publisher 对象模型可在此处获得：https ://msdn.microsoft.com/en-us/library/office/ff939040.aspx 。

有关 VBA 编辑器的信息（在 Publisher 中的工作方式与在 Word 或 Excel 中的工作方式相同）可在此处获得：https: //support.office.com/en-us/article/Find-Help-on-using-the-Visual -基本编辑器-61404b99-84af-4aa3-b1ca-465bc4f45432

这会将所有选定的形状向下移动 2 厘米，向右移动 3 厘米：

Option Explicit

Sub MoveTextFrames()
    Dim oShapes As ShapeRange
    Dim oShape As Shape
    Dim moveRight As Long
    Dim moveDown As Long

    moveRight = 3
    moveDown = 2

    Set oShapes = Selection.ShapeRange

    For Each oShape In oShapes
        oShape.Left = oShape.Left + CentimetersToPoints(moveRight)
        oShape.Top = oShape.Top + CentimetersToPoints(moveDown)
    Next oShape

End Sub

如果您想要一些其他值，只需编辑这些行：

    moveRight = 3
    moveDown = 2