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

【问题标题】：How can I move a bunch of textframes in VBA in MS Publisher?如何在 MS Publisher 的 VBA 中移动一堆文本框？
【发布时间】：2016-09-29 13:25:41
【问题描述】：

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

【问题讨论】：

标签： vba ms-publisher

【解决方案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-Basic-Editor-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

【讨论】：