Ⅰ word宏代碼--選中的圖片修改尺寸 代碼，不是批量處理
1. VB語言中對圖片大小的設置是以原圖的長寬等比在縮放，統一設置時默認優先對齊所有圖片的「寬度」。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '設置圖片居中 可以讓圖片居中，Left、Right可以分別設置左對齊、右對齊。
3. 全文如果有「手動換行符」↓（代碼是^l），設置某一部分居中時會影響漆上下部分的居中與否，因而，如果需要只對圖片進行居中，則需先將全文中的↓替換成「段落標記符」（常規回車鍵，代碼是^p）。
4. 這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
5. InlineShapes類型圖片與Shapes類型圖片的區別有待研究。
按比例縮放篇代碼
Sub setpicsize() '設置圖片大小 Dim n
Dim picwidth Dim picheight
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.6 '設置高度為0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 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.6 '設置高度為0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 Next n End Sub
Ⅱ 如何通過宏可以批量完成一個word中所有圖片大小的修改並且讓圖片安排原來順序排列
word文檔批量處理大師有該功能，很好用，推薦
Ⅲ word2007裁剪和改變圖片大小的宏，怎麼批量修改，求大神修改下面宏代碼，要求批量修改！！！！！
Sub 裁剪() '本操作批量裁剪圖片
left_cut = 4.1 '左邊裁剪的大小 單位厘米
right_cut = 1.2 '右
top_cut = 2.3 '上
bottom_cut = 2.4 '下
scales = 1 / 0.03528 ' 一磅等於0.03528厘米
Dim n '圖片個數
'On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
End Sub
'*************************************
Sub Macro() 』改變圖片大小，縮放不裁剪，批量操作
Mywidth=10'10為圖片寬度（厘米）
Myheigth=10'10為圖片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
Ⅳ word中批量修改圖片尺寸，求幫忙寫宏。
把繪圖工具調出 添加文本框 雙擊文本框 在設置文本框大小 在插如圖片 就可以
或者直接設置 圖片大小 雙擊圖片就可以
Ⅳ 如何通過「宏」批量完成word中所有圖片大小的修改並且讓圖片安排原來順序排列
1、Alt+F8調出宏編輯窗口
2、點創建按鈕，創建新宏，setpicsize,內容如下：
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '設置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度
Next j
End Sub
3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cm
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '設置寬度
End If
Next j
End Sub
Ⅵ word07如何用宏來更改粘貼圖片的大小
粘貼完圖片，只錄制更改圖片大小的步驟就可以得到宏代碼
Ⅶ 用宏如何將word中圖片大小改為大小為50% 謝謝
工具----宏----錄制新宏。取個名字，按「鍵盤」圖標，
在「請按新快捷鍵處」輸入快捷鍵，點「指定」再點「關閉」
按鍵盤上 右邊ctrl左邊的一個鍵。這是滑鼠右鍵的替代鍵。選「設置圖片格式」--「大小」，選50%，確定，就可以了，再關上宏。
Ⅷ word 宏 批量修改圖片大小 方向
旋轉的代碼！
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).ConvertToShape
ActiveDocument.Shapes(Shapes.count).Rotation = 90『順時針旋轉90度
Ⅸ word中怎樣進行宏調整圖片尺寸
word中進行宏調整圖片尺寸方法詳見：https://jingyan..com/article/0202781146c2a81bcc9ce5e8.html