軟體印象

1. 使用宏操作 – 錄制宏并添加快捷鍵（ctl+shift+h）；選中要修改的圖片，使用快捷鍵。

Sub ResizeShape()

'

' ResizeShape Macro

' Macro recorded 2010-3-25 by Kavin

'

    Selection.InlineShapes(1).Fill.Visible = msoFalse

    Selection.InlineShapes(1).Fill.Solid

    Selection.InlineShapes(1).Fill.Transparency = 0#

    Selection.InlineShapes(1).Line.Weight = 0.75

    Selection.InlineShapes(1).Line.Transparency = 0#

    Selection.InlineShapes(1).Line.Visible = msoFalse

    Selection.InlineShapes(1).LockAspectRatio = msoTrue

    Selection.InlineShapes(1).Height = 198.15

    Selection.InlineShapes(1).Width = 264.45

    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5

    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5

    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic

    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#

    Selection.InlineShapes(1).PictureFormat.CropRight = 0#

    Selection.InlineShapes(1).PictureFormat.CropTop = 0#

    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#

End Sub

2. 使用宏程序操作 – 創(chuàng)建宏程序，然后執(zhí)行

Sub batchResizeShape()

    Dim doc     As Document

  Dim i     As Integer

  Set doc = ActiveDocument 

  For i = 1 To doc.InlineShapes.Count

  'doc.InlineShapes 

      'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle

      'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle

      doc.InlineShapes(i).Height = 198.15

    doc.InlineShapes(i).Width = 264.45

  Next i

End Sub