用宏自动调节图片大小

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英寸。

batmanbbs

请问图片是嵌入式的还是非嵌入式的？处理语句不一样

batmanbbs

注意事项：嵌入图片和非嵌入图片需要分别计算。
例如：文档中有2张图，1张嵌入和1张非嵌入，都是本属性的第1张图片。

1. Sub main()
   
2. ' 【参数说明】
   
3. ' 第一个参数：第几张图片（注意：嵌入和非嵌入需要分别计数）
   
4. ' 第二个参数：图片宽度（单位：厘米）
   
5. ' 第三个参数：图片高度（单位：厘米）
   
6. ' 第四个参数：ture=嵌入式图片；false=非嵌入式图片
   
7. 
   
8.     Call 设置图片大小(1, 3, 3, True)
   
9.     Call 设置图片大小(2, 3, 3, True)
   
10.     Call 设置图片大小(3, 4, 4, True)
    
11.     Call 设置图片大小(4, 4, 4, True)
    
12.     Call 设置图片大小(5, 4, 4, True)
    
13.     Call 设置图片大小(6, 5, 5, True)
    
14.     Call 设置图片大小(7, 5, 5, True)
    
15. 
    
16. End Sub
    
17. 
    
18. Private Sub 设置图片大小(pIndex As Integer, Width As Integer, Height As Integer, isInline As Boolean)
    
19. 
    
20.     If isInline Then
    
21.         ' 嵌入式图片
    
22.         With ActiveDocument.InlineShapes(pIndex)
    
23.             If .Type = wdInlineShapePicture Then
    
24.                 .LockAspectRatio = msoFalse
    
25.                 .Width = CentimetersToPoints(Width)
    
26.                 .Height = CentimetersToPoints(Height)
    
27.             End If
    
28.         End With
    
29.     Else
    
30.         ' 非嵌入式图片
    
31.         With ActiveDocument.Shapes(pIndex)
    
32.             If .Type = msoPicture Then
    
33.                 .LockAspectRatio = msoFalse
    
34.                 .Width = CentimetersToPoints(Width)
    
35.                 .Height = CentimetersToPoints(Height)
    
36.             End If
    
37.         End With
    
38.     End If
    
39. 
    
40. End Sub

复制代码