Word巨集設定圖片大小
Word巨集設定圖片大小
1. Alt+F8, Create 一個Macro
2. 輸入Macro名,進入編輯
---按比例縮小大量圖片
Sub alex() '設定圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes型別圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '設定高度為0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '設定寬度為0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes型別圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '設定高度為0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '設定寬度為0.5倍
Next n
End Sub
---圖片大小設定成絕對值 1cm=28px
Sub alex() '設定圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes型別圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = 280 '設定高度為280px
ActiveDocument.InlineShapes(n).Width = 364 '設定寬度為364px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes型別圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = 280 '設定高度為280px
ActiveDocument.Shapes(n).Width = 364 '設定寬度為364px
Next n
End Sub
3. 保持,再次進入原來的word,alt-f8 run這個巨集
1. Alt+F8, Create 一個Macro
2. 輸入Macro名,進入編輯
---按比例縮小大量圖片
Sub alex() '設定圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes型別圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '設定高度為0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '設定寬度為0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes型別圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '設定高度為0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '設定寬度為0.5倍
Next n
End Sub
---圖片大小設定成絕對值 1cm=28px
Sub alex() '設定圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes型別圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = 280 '設定高度為280px
ActiveDocument.InlineShapes(n).Width = 364 '設定寬度為364px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes型別圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = 280 '設定高度為280px
ActiveDocument.Shapes(n).Width = 364 '設定寬度為364px
Next n
End Sub
3. 保持,再次進入原來的word,alt-f8 run這個巨集
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/29519108/viewspace-2147903/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 直播系統搭建,插入圖片、刪除圖片、設定圖片大小
- 將任意bmp圖片大小重新設定後生成新的bmp圖片
- MD語言 裡連結圖片大小的設定
- Java 給Word每一頁設定不同圖片水印效果Java
- C# 給Word每一頁設定不同圖片水印C#
- Echarts 設定地圖大小Echarts地圖
- 2個方式快速解決:Word背景圖片怎麼設定
- HTML中嵌入SVG圖片的N種方式,及設定大小HTMLSVG
- Windows設定圖片縮圖Windows
- word備忘【圖片】
- vscode設定背景圖片VSCode
- pyqt-工具欄圖示大小設定QT
- 設定圖片水平垂直居中
- JavaScript設定背景圖片位置JavaScript
- Typora上傳圖片設定
- java調節圖片大小Java
- python批量ppt轉圖片,pdf轉圖片,word轉圖片指令碼Python指令碼
- word貼上圖片到ckeitor
- win10桌面桌布尺寸怎麼調 設定圖片大小尺寸的方法Win10
- CSS 設定<img>圖片樣式CSS
- html+css 設定背景圖片HTMLCSS
- python使用OpenCV設定圖片尺寸PythonOpenCV
- PythonGUI工具 圖片大小轉換PythonNGUI
- wps批量調整圖片大小
- word底紋怎麼設定 設定word底紋的方法
- word分欄怎麼設定 word設定分欄的方法
- win10系統圖示大小怎麼調 設定圖示比例大小快捷鍵Win10
- 線上編輯Word——插入圖片、圖形
- win10 怎麼設定小圖示_win10如何設定桌面圖示大小Win10
- 圖形驗證碼圖片樣式設定
- JavaScript動態設定元素背景圖片JavaScript
- img圖片設定padding內邊距padding
- css如何為圖片設定圓角CSS
- UIView設定背景圖片幾種方式UIView
- 獲取網路圖片的大小
- word標題格式怎麼設定 word標題格式設定的方法
- word設定頁碼在哪裡 word設定自動連續頁碼
- 在word中怎麼設定目錄 word設定目錄的方法
- Swiper幻燈片設定圖片自動高度的方法