画像をマクロで単語の異なるページに移動するにはどうすればいいですか？

Question

オンラインビジネスの一環として送料ラベルを印刷する必要があります。私は、ページ内のラベルを配置するマクロがありますが、別のページに画像を移動する方法が欲しいです。

私が持っている20枚の画像を、VBAマクロを使ってそれぞれ4枚の画像で5つの別々のページに移動するにはどうすればよいですか？これは途中でMacにあります。ありがとう。

Sub ImageResize() 
' 
' ImageResize Macro 
' Resizes all images to a height of approx 99px 
' 
    Dim i As Long 
    With ActiveDocument 
     For i = 1 To .Shapes.Count 
      With .Shapes(i) 
       .Height = 300 
      End With 
     Next i 
    End With 
End Sub 
Sub ImagePos() 
    ' 
    ' ImagePos Macro 
    ' Positions 4 images per page. 
    Dim i As Long 
    With ActiveDocument 
     For i = 1 To .Shapes.Count 
      With .Shapes(i) 
       .Top = (i Mod 2) * 400 
       If i Mod 4 = 3 Or i Mod 4 = 0 Then 
        .Left = 250 
       End If 
       Selection.InsertBreak Type:=wdPageBreak 
       End With 

     Next i 

     End With 

    End Sub 

Answer 1

あなたのページのそれぞれについて、あなたのImageResizeとImagePos潜水艦を呼ぶ1以上Subを作成します。

Sub PicOnPages() 

Dim p As Page 

For Each p In ActiveDocument.ActiveWindow.Panes(1).Pages 
    ImageResize 
    ImagePos 
Next 

End Sub 

これが役に立ちます。