如何使用宏将图片移动到不同的页面？

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 

希望这有助于！