vbaword圖片大小

A. 怎樣批量調整word圖片大小為長8.2cm,寬5cm,好像用VBA可以

右鍵點擊插入的圖片，選擇 設置對象格式，選後點擊大小一欄，輸入寬和高的具體數值即可。望採納！

B. 如何在VBA中調用Word中圖片壓縮功能

感謝樓主，測試成功，Very good！～～～顯然是摘來的內容！

Sub ystp()

For Each pic In ActiveSheet.Shapes

If pic.Type = 13 Then

SendKeys ^{ENTER}, False

Application.CommandBars(Picture).Controls(壓縮圖片(&C)...).Execute

End If

Next

End Sub

C. 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

D. 求：word中用vba實現刪除長寬都小於10mm的圖片

以下程序供您參考，希望對你有所幫助。

PS: 操作前請將WORD文檔另作備份，謹防誤操作，因數據丟失而致遺恨萬年！！！

（引用外來程序均請養成數據備份的好習慣！！！）

Sub picDelete()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oShape As Shape
Dim oInLineShape As InlineShape

mSize = 10 '設置圖片高寬限值為10CM
nRate = 28.345 '默認圖片解析度Dpi=72Px, cm(厘米):Px（像素）=1:28.345,

With oDoc
For Each oShape In .Shapes '刪除文字環繞型圖片
If oShape.Width < mSize * nRate And oShape.Height < mSize * nRate Then
oShape.Delete
End If
Next
For Each oInLineShape In .InlineShapes '刪除嵌入型圖片
If oInLineShape.Width < nRate * nRate And oInLineShape.Height < mSize * nRate Then
oInLineShape.Delete
End If
Next
End With
oDoc.Save '文檔保存
End Sub

E. word用vba批量導入圖片文件時，怎樣保留圖片原有大小，而不是統一固定大小跪謝！下為代碼

刪掉紅圈裡面的

F. word vba 處理圖片問題，能否以水平和垂直兩個方向來設置圖片的大小

修改 shape 對象的 width 和 height 屬性即可對圖片的寬度和高度進行控制。

G. word用vba批量導入圖片文件時，怎樣保留圖片原有大小，而不是統一固定大小跪謝！下為您原來提供的代碼

試試把
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
改為
'MyPic.Width = c * 28.35
'MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height

H. vba怎麼控制word圖片的間距

首先，正常插入圖片的時候，默認圖片在文檔中會占據一整行。
這個時候，要改變文本與圖片的距離，就要用到段落調整了。
將游標移動到圖片旁，單擊滑鼠右鍵，選中「段落」選項。
在段落設置欄中，可以通過改變圖片所在行的「段前」和「段後」距離，以改變文本和圖片的間距。
也可以單擊選中圖片，右鍵選擇「自動換行」選項中的不同圖片模式以改變圖片和文本的位置關系。