我想在WORD中把若干图片调整为一样大小,请问各位大虾有没有什么快捷的好办法?图片较多。

2024-12-18 11:03:17
推荐回答(5个)
回答1:

打开word的宏(在视图中)—>查看宏—>输入宏名字(例如:修改图片大小)—>创建
把下戚衡面代码粘贴上去即可(把已有的删掉):
Sub 修改图片大小()
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.8 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 '设贺逗置宽度为1.1倍
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.8 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍
Next n
End Sub

回答2:

acdsee和光影魔术手都有这功能,处理完了之后再导入word就行了。

回答3:

额..我一般都是用ACDSee v8.0绿色完美汉化破解版把图片调整好放进去的

回答4:

word中没办法,建议用PS的Action功能批量修改图片,然后再在Word中插入

回答5:

摄像头,实时拍摄,然后再传到电脑里
目前能够满足你要求的卫星图片应该只有布什他们能看到