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图片的间距

首先，正常插入图片的时候，默认图片在文档中会占据一整行。
这个时候，要改变文本与图片的距离，就要用到段落调整了。
将光标移动到图片旁，单击鼠标右键，选中“段落”选项。
在段落设置栏中，可以通过改变图片所在行的“段前”和“段后”距离，以改变文本和图片的间距。
也可以单击选中图片，右键选择“自动换行”选项中的不同图片模式以改变图片和文本的位置关系。