Sub 实现WORD图片排版功能() '必须在WORD中进行，且在未考入正式版之前完成，否则会改变其它WORD图片结构
If MsgBox("必须在WORD中进行，且在未考入正式版之前完成，否则会改变其它WORD图片结构!!!是否继续排版？", vbCritical + vbYesNo, "实现WORD图片排版功能") = vbNo Then Exit Sub
将插入的图片转换成Shape
将Shape图片旋转放大
End Sub
Sub 将插入的图片转换成Shape() '必须在WORD中进行
Dim n
On Error Resume Next
Do While ActiveDocument.InlineShapes.Count > 0
For n = 1 To ActiveDocument.InlineShapes.Count '.Shapes.Count
ActiveDocument.InlineShapes.Item(n).ConvertToShape '.PictureFormat..IncrementRotation -90#
Next n
Loop
End Sub
Sub 将Shape图片旋转放大() '必须在WORD中进行
Dim n
On Error Resume Next
Do While ActiveDocument.Shapes.Count > 0
For n = 1 To ActiveDocument.Shapes.Count '.Shapes.Count
ActiveDocument.Shapes.Item(n).Height = 16.05 * 28.8 '宽度为16cm
ActiveDocument.Shapes.Item(n).Width = 24.1 * 28.3 '高度为24.3cm
ActiveDocument.Shapes.Item(n).IncrementRotation -90#
ActiveDocument.Shapes.Item(n).WrapFormat.Type = wdWrapInline ' = 1
Next n
Loop
End Sub
加好友 
发短信
Post By：2018/3/31 22:57:00 [显示全部帖子]
