如何使用宏將圖片移動到不同的頁面？

Question

我必須打印郵資標籤作爲我的在線業務的一部分。我有一個宏來將標籤放置在一個頁面中，但我想要一種將圖像移動到另一個頁面的方式。

如何使用VBA宏將我的20張圖像移動到5張單獨的頁面上，每張圖像上有4張圖像？順便說一下，這在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

再創建一個Sub會打電話給你ImageResize和ImagePos潛艇爲每個網頁。

Sub PicOnPages() 

Dim p As Page 

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

End Sub 

希望這有助於！