MS PublisherでVBAで複数のテキストフレームを移動するにはどうすればよいですか？

Question

MS Publisherの多くのテキストフレームの位置（水平および垂直）を変更する簡単な方法はありますか？そして、マクロをプログラミングするための説明で、どこの方法を見つけることができますか？

Answer 1

Publisherオブジェクトモデルは、https://msdn.microsoft.com/en-us/library/office/ff939040.aspxです。

（WordやExcelのようPublisherで同じ動作します）VBAエディタに関する情報は、ここに提供されています：

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 

： https://support.office.com/en-us/article/Find-Help-on-using-the-Visual-Basic-Editor-61404b99-84af-4aa3-b1ca-465bc4f45432

これは、選択したすべての図形を右方向に2cmの下に3センチ移動します

他の値が必要な場合は、次の行を編集してください：

moveRight = 3 
    moveDown = 2