Word--圖片規整宏代碼

平常在寫Word報告時候，特別是一些路測報告、項目總結報告，其中涉及到的圖片特別多，每每大小不一，很不美觀，要是手動一張一張調很費時間（就算調好第一張圖片大小，後續一張一張按F4快捷鍵，也比較麻煩），這裏跟你們分享一段調整Word圖片統一大小的宏。

---

源代碼

---

• 
  
• 
  
• 
  
• 
  
• 
  
• 
  
• 
  
• 
  
• 
  
• 
  

Sub FormatPics()  Dim iSha As InlineShape  For Each iSha In ActiveDocument.InlineShapes    If iSha.Type = wdInlineShapePicture Then      iSha.LockAspectRatio = msoFalse   #不鎖定縱橫比      iSha.Width = CentimetersToPoints(12)   #設置圖片的寬，單位釐米      iSha.Height = CentimetersToPoints(8)   #設置圖片的高，單位釐米    End If  NextEnd Sub

操做方式

---

打開要調整格式的Word文檔：

Alt+F11快捷鍵，打開VB操做界面，單擊‘視圖’菜單下的‘代碼窗口’，將上面的代碼粘貼上，再保存

單擊運行按鈕，或者運行菜單下的運行，或者按F5快捷鍵，運行完後，該Word中的全部圖片都設置成了同樣的大小：

或者退出VB編輯界面，在Word文檔的視圖菜單下，單擊宏，會彈出宏對話框，剛纔編寫的代碼宏也能夠在這裏進行運行：