word中利用宏命令自动调整图片大小

51110134

word宏编辑解锁图片横纵比，将第1和2图大小调为3*3，3、4和5调为4*4，5、6和7图调为5*5

约定的童话

实现这个功能可以使用Word宏。按下Alt+F11打开Visual Basic编辑器，在左侧的Project窗口中双击ThisDocument，将以下代码复制到ThisDocument的代码窗口中：

复制
Private Sub Document_Open()
    Call ResizePictures
End Sub

Private Sub ResizePictures()
    Dim pic As InlineShape
    For Each pic In ActiveDocument.InlineShapes
        Select Case pic.Range.Information(wdVerticalPositionRelativeToPage)
            Case Is < InchesToPoints(1)
                pic.Height = InchesToPoints(3)
                pic.Width = InchesToPoints(3)
            Case Is < InchesToPoints(2)
                pic.Height = InchesToPoints(3)
                pic.Width = InchesToPoints(3)
            Case Is < InchesToPoints(3)
                pic.Height = InchesToPoints(4)
                pic.Width = InchesToPoints(4)
            Case Is < InchesToPoints(4)
                pic.Height = InchesToPoints(4)
                pic.Width = InchesToPoints(4)
            Case Is < InchesToPoints(5)
                pic.Height = InchesToPoints(5)
                pic.Width = InchesToPoints(5)
            Case Else
                pic.Height = InchesToPoints(5)
                pic.Width = InchesToPoints(5)
        End Select
    Next pic
End Sub
这个宏在文档打开时会自动运行，并将所有嵌入式图片的大小调整为指定的大小。如果你希望手动运行宏，请按下Alt+F8打开宏对话框，选择ResizePictures，然后点击运行。

在这个宏中，我们使用了Select Case语句来根据图片的垂直位置将其大小调整为不同的大小。你可以根据需要修改这些值。在这个例子中，我们将第1和2图调整为3x3英寸，第3、4和5图调整为4x4英寸，第6、7和8图调整为5x5英寸。