VBA 实现自动设置页面布局和一页八张图片

Sub 设置页面横向边距为 0()
'' 设置页面横向边距为 0 宏' ' 设置活动文档页面方向为横向
    ActiveDocument.PageSetup.Orientation = wdOrientLandscape
    
    ' 设置页边距为 0
    With ActiveDocument.PageSetup
        .TopMargin = 0
        .BottomMargin = 0
        .LeftMargin = 0
        .RightMargin = 0
    End With

End Sub
Sub 一页八张 ()
'' 一页八张 宏'
'
Dim i As Integer

    For i = 1 To ActiveDocument.InlineShapes.Count
    
    With ActiveDocument.InlineShapes(i)
    
    .Height = 345
    
    .Width = 185
    
    .LockAspectRatio = msoFalse
    
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    
    .Borders(wdBorderTop).LineWidth = wdLineWidth050pt
    
    .Borders(wdBorderTop).Color = wdColorAutomatic
    
    End With
    
    Next i




End Sub