導入圖片
假設我們就導入這些圖片了,大小嘛,有的相同, 有的不同,尺寸是各異的,我們的目標就是要調整到統一大小;可以在插入選項卡下面,批量導入,也可以單張導入,這個就看你自己的需要了;設置大小
在Word中按Alt+F11,把下面的代碼粘貼進去,然後按F5執行就可以了;(你可以修改代碼中的15和9分別為你需要的尺寸即可)Sub FormatPics()Dim Shap As InlineShapeFor Each Shap In ActiveDocument.InlineShapesIf Shap.Type = wdInlineShapePicture ThenShap.LockAspectRatio = msoFalse '不鎖定縱橫比Shap.Width = CentimetersToPoints(15) '寬15CMShap.Height = CentimetersToPoints(9) '高9CMEnd IfNextEnd Sub動畫演示