Как я могу переместить кучу текстовых фреймов в VBA в MS Publisher?

Question

Есть ли простой способ, который может изменить положение (горизонтальное и вертикальное) множества текстовых кадров в MS Publisher? И где я могу найти все методы с объяснениями для программирования макросов?

Answer 1

Объектная модель Publisher доступна здесь: https://msdn.microsoft.com/en-us/library/office/ff939040.aspx.

Информация о редакторе VBA (который работает так же в Publisher, как в слове или 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