word在图片上表格大小

word中的图片怎么一步到位的弄成一个大小

在word中按Alt F8打开宏创建窗口，输入宏名之后（如resize_pics），点击“创建”按钮进入Visual Basic 编辑器窗口，将如下代码复制到Visual Basic 编辑器窗口的End Sub上面一行： Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument。

InlineShapes。Count 'InlineShapes类型图片 ActiveDocument。

InlineShapes(n)。Height = 400 '设置图片高度为 400px ActiveDocument。

InlineShapes(n)。Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument。

Shapes。Count 'Shapes类型图片 ActiveDocument。

Shapes(n)。Height = 400 '设置图片高度为 400px ActiveDocument。

Shapes(n)。 Width = 300 '设置图片宽度 300px Next n 然后关掉VB编辑器窗口，在word中按Alt F8重新打开宏窗口，选择刚才创建的宏，单击“运行”按钮即可批量修改word中的图片大小。

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。

转载请注明出处51数据库 » word在图片上表格大小