打开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
acdsee和光影魔术手都有这功能,处理完了之后再导入word就行了。
额..我一般都是用ACDSee v8.0绿色完美汉化破解版把图片调整好放进去的
word中没办法,建议用PS的Action功能批量修改图片,然后再在Word中插入
摄像头,实时拍摄,然后再传到电脑里
目前能够满足你要求的卫星图片应该只有布什他们能看到