WORD2007/2010/2016 修改 图片尺寸及图片居中

Tobin_Zhang

以下为EXCELHOME专家帮助编写的修改图片尺寸的宏，但由于实际情况，需要麻烦专家帮修改一下宏代码，条件如下：

1. 当图片尺寸  width大于height时，修改图片尺寸为： .Height = InchesToPoints(2.55)  .Width = InchesToPoints(3.39)；
    当图片尺寸  height  大于  width 时，修改图片尺寸为：  .Height = InchesToPoints(3.39)  .Width = InchesToPoints(2.55)。
2. 图片尺寸修改后，设置图片在表格中的位置：   前后左右居中（图片仍然像现在一样，在表格中不可以移动）。
3. 清除图片重命名后产生的后缀 “数字.JPG” （压缩包WORD中的     1.JPG    2.JPG   3.JPG   4.JPG   5.JPG .....    10000.JPG......)



Sub Adjust_ImageSize()
    '???????????????????????
    Dim myInlineshape As InlineShape
    Dim i As Integer
   
    Application.ScreenUpdating = False
    With ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
        For Each myInlineshape In .InlineShapes
            i = i + 1
            With myInlineshape
                .LockAspectRatio = msoFalse
                .Height = InchesToPoints(2.55)
                .Width = InchesToPoints(3.39)
            End With
        Next
        With .Find
            .ClearFormatting
            .Text = ".jpg"
            .MatchCase = False
            .Replacement.Text = ""
            .Execute Replace:=wdReplaceAll
        End With
    End With
    MsgBox "????????" & i & "??????????", vbInformation
    Application.ScreenUpdating = True
End Sub