怎么让word里的照片统一缩小

1.怎么把word里面图片一起缩小

把word里面图片一起缩小的方法：

1、选中文档中所有的图片；

2、单击图片工具格式选项卡右下角如图所示的按钮；

3、弹出大小对话框，去掉锁定纵横比和相对于图片原始尺寸复选框中的对勾，在高度和宽度输入框中输入所需要的数值即可，如图所示。

2.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。 77cmSub setpicsize（)'设置图片大小' 宏在 2008-3-31 由 hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument。

InlineShapes。Count '文件中图片总个数，图片类型为inlineshapesIf ActiveDocument。

InlineShapes(j)。Width > 480 ThenActiveDocument。

InlineShapes(j)。Width = 400 '设置宽度End IfNext jEnd Sub。

3.如何将word表格中的图片统一设置大小就是说word里有个表格每 爱问

一，在word中按alt f11组合键，进入VBA模式二，在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块三，把下面代码复制，粘贴进去。

四，更改数值， 改一下宽度和高度数值（10），点运行（类似播放按钮。 ）或f5，即可设置文档中全部图片 Sub Macro()Mywidth=10 '10为图片宽度（厘米）Myheigth=10 '10为图片高度（厘米）For Each iShape In ActiveDocument。

InlineShapesiShape。Height = 28。

345 * MyheigthiShape。Width = 28。

345 * MywidthNext iShapeEnd Sub。

4.如何将word中的图片尺寸改为480*720

可以用Ctrl 鼠标左键逐个点击有所图片，然后在任意一个上面双击，图片——大小——高度——输入50，确定！ 万能方法： 我知道通过宏可以批量完成一个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我知道通过宏可以批量完成一个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。

5.word怎么让插入的图片变成统一格式

使用VBA进行修改，可参考下面的代码：

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