文檔圖片尺寸如何用宏怎麼調整

1. wps中的宏用來設置圖片大小的那種，怎麼弄，怎麼將宏加到WPS中，謝謝！！

宏代碼：
Dim i
On Error Resume Next
For i=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=300 '修改為自己需孫肆要的值
ActiveDocument.InlineShapes(i).Width=200 '修改為自己需要的值
Next
For i=1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Height=300 '修改為自己需要的值
ActiveDocument.Shapes(i).Width=200 '修改為自己需要的值
Next

使用方法：
打開WPS文件，點工具——宏——宏，在「宏的則猛轎位置」中選擇「（文檔1）」（也就是知鄭你的文檔名），在「宏名」欄隨便輸入一個名稱（如tpdx），點「創建」。在出現的編輯框中將上面的代碼復制到Sub tpdx() 與 End sub之間。
按F5運行宏，或者關閉宏編輯器回到文檔，再在「宏」菜單中運行宏。

2. word如何統一調整圖片大小

1、新建一個Word文檔，然後點擊菜單欄上的「布局」菜單

3. word中怎樣一次性調整所有圖片大小

由於是批量的處理同樣的事情，因此要用到宏。

是這樣的，如果你的圖片顯示的是嵌入式的。也就是不能旋轉的那種格式，鑽切換大小會很容易，方法
要使用宏命令。

宏主要用來處理有規律的重復的工作，相當於批處理。想好了就能編輯出來。工具→宏→錄制新宏→然後指定一個快捷鍵（如L，相當於ctrl L快捷鍵），然後指定、關閉。開始錄制宏。把你能夠重復的操作執行一下，以計算機能識別的重復為准。然後→工具→宏→停止錄制。這樣宏就錄制出來了。你ctrl L執行就行了。連續按，則連續執行。如果不完全正確，還要修改或重新錄制宏。

對你來說：使用的循環是：查找，圖形→然後調整大小，然後滑鼠移到圖形右側。然後再執行循環。這個命令是：ctrl F，點開高級，查找裡面，選擇特殊格式裡面的「圖形」，單擊查找下一個。關掉查找界面，回到word編輯界面。直接去單擊 格式菜單裡面的 圖片，設置大小為你認可的比例。確定。然後將游標用鍵盤移出 圖片（右移以下）。
執行宏即可。

大俠在線[email protected](目前只能郵箱聯系，賬號滿員）
2010年6月8日

4. 怎樣批量設置word文檔里圖片大小

關於WORD里批量插入圖片，然後統一修改大小的方法只有下面這個好用，其他的都不太行，現分享給需要的人，裡面設置的尺寸自己調整一下：
使用宏，alt+F8進入宏查看界面，點擊創建，輸入以下代碼，設置你要的圖片高、寬，單位：厘米。f5或保存後退出宏編輯界面。
然後alt+F8進入宏查看界面，點擊運行即可。
注意：全文檔的圖片都會被統一修改大小。請謹慎操作或備份後操作！！！！！
Sub
批量設置圖片大小()
'
'
Macro
宏
'
'
Myheigth
=
12
Mywidth
=
8
On
Error
Resume
Next
'忽略錯誤
For
Each
iShape
In
ActiveDocument.InlineShapes
iShape.Height
=
28.345
*
Myheigth
'設置圖片高度為任意cm
iShape.Width
=
28.345
*
Mywidth
'設置圖片寬度
Next
For
Each
Shape
In
ActiveDocument.Shapes
Shape.Height
=
28.345
*
Myheigth
'設置圖片高度為任意cm
Shape.Width
=
28.345
*
Mywidth
'設置圖片寬度
Next
End
Sub

5. 如何一鍵設置word所有圖片大小

• 打開Word文檔後，滑鼠右鍵點擊第一張圖片，選擇「大小和位置」。

  

6. 如何通過「宏」批量完成word中所有圖片大小的修改並且讓圖片安排原來順序排列

1、Alt+F8調出宏編輯窗口 x0dx0a2、點創建按鈕，創建新宏，setpicsize,內容如下： x0dx0aSub setpicsize() x0dx0a'設置圖片大小 x0dx0a' 宏在 2008-3-31 由 hero_thm 錄制 x0dx0a' x0dx0aDim j '計數圖片個數 x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes x0dx0aActiveDocument.InlineShapes(j).Height = 362 '設置高度 x0dx0aActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度 x0dx0aNext j x0dx0ax0dx0aEnd Sub x0dx0a3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cmx0dx0aSub setpicsize()x0dx0a'設置圖片大小x0dx0a' 宏在 2008-3-31 由 hero_thm 錄制x0dx0a'x0dx0aDim j '計數圖片個數x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapesx0dx0aIf ActiveDocument.InlineShapes(j).Width > 480 Thenx0dx0aActiveDocument.InlineShapes(j).Width = 400 '設置寬度x0dx0aEnd Ifx0dx0aNext jx0dx0aEnd Sub

7. 如何一次性調節word所有圖片大小

1.新建一個Word文檔,然後點擊菜單欄上的「布局」菜單
2.接下來點擊工具欄上的箭頭所指的位置,打開Word頁面設置窗口
3.在頁面設置窗口中,我們把頁邊距設置為0.5厘米,然後調整紙張方向為橫向
4.接著點擊菜單欄上的「插入」菜單項,在打開的插入工具欄上點擊「圖片」按鈕,在打開的窗口選擇...
5.然後點擊菜單欄上的「視圖」菜單項,接著點擊工具欄上的「宏」按鈕