批量word尺寸

摘要

批量word尺寸,收藏下

批量word尺寸,收藏下

Sub setpicsize()

Dim n

On Error Resume Next

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).Height = 2500

 ActiveDocument.InlineShapes(n).Width = 480

 Next n

 For n = 1 To ActiveDocument.Shapes.Count

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

 ActiveDocument.Shapes(n).Width = 480   '设置图片宽度 300px

 Next n

 End Sub

Sub limi()

Mywidth = 16.8  '10为图片宽度(厘米)

Myheigth = 23 '10为图片高度(厘米)

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth

iShape.Width = 28.345 * Mywidth

Next iShape

End Sub

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: