word如何抠大小,大小

1.在WORD 中如何裁剪图片大小?

材料/工具：word2010

1、插入图片如图一个新建的word文档，先插入图片。

2、调整大小如图，我们可以鼠标左键点中所指的小方框，调节到我们喜欢的大小。

3、点击图片我们鼠标点击图片后，图片的右上方会出现一些简单的操作工具

4、我们点击如图的裁剪图标，就会出现对话框。

5、选图形，点击如图的图形样式。

6、查看裁剪后的效果是否喜欢，如果不喜欢可以从新选择图样，确定后回车。

7、裁剪后，出现如图的裁剪后的效果。

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

3.如何在word中批量修改图片大小

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Subsetpicsize（)'设置图片大小Dimn'图片个数On Error Resume Next'忽略错误Forn = 1ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300'设置图片宽度300pxNextnForn = 1ToActiveDocument.Shapes.Count'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400pxActiveDocument.Shapes(n).Width = 300'设置图片宽度300pxNextnEnd Sub3、返回word ，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） 按比例缩放篇 具体操作同上，只是代码部分稍做修改，代码如下：Subsetpicsize（)'设置图片大小Dimn'图片个数 Error Resume Next'忽略错误Forn = 1ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1'设置高度为 1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1'设置宽度为 1.1倍NextnFor n = 1ToActiveDocument.Shapes.Count'Shapes类型图片picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1'设置高度为 1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1'设置宽度为 ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= '左对齐：wdAlignParagraphLeft 注意：这里的Shapes(InlineShapes。