- ·上一篇:word里卡死怎么办
- ·下一篇:怎么在word数字旁边注公差
word里怎么编辑照片尺寸
1.如何将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。
2.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中的图片大小。
