word中如何将插入到表格中的图片进行旋转？

eject2010

由于是插入到表格中的照片，采用的是InlineShapes，该如何让它进行旋转90°的命令？

Sub 固定()

Dim n '图片个数

Dim a, b

On Error Resume Next '忽略错误

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

a = ActiveDocument.InlineShapes(n).Height

b = ActiveDocument.InlineShapes(n).Width

If a > b Then

ActiveDocument.InlineShapes(n).Height = 11 * 28.35 '设置图片高度（1cm等于28.35px）

Else

'这里需要将图片进行旋转后再调整宽度为11cm


ActiveDocument.InlineShapes(n).Width = 11 * 28.35 '设置图片宽度

End If

Next n

End Sub

eject2010

要不要沉的这么快....