WORD宏 调整图片尺寸后左旋

Tobin_Zhang

以下为本人录制的WORD2003宏，为何录制好以后，只能调整图片尺寸为2.1 inch，去不能使图片左旋？该如何修改？图片再WORD中的嵌入方式如图，请指导！

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/4/2019 by AAAAAAA
'
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 201.6
    Selection.InlineShapes(1).Width = 151.2
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 201.6
    Selection.InlineShapes(1).Width = 151.2
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
    Selection.ShapeRange.IncrementRotation -90#
End Sub

nikichannel

非嵌入图片才能旋转，旋转好再变成嵌入吧

Tobin_Zhang

nikichannel 发表于 2019-7-5 12:48
非嵌入图片才能旋转，旋转好再变成嵌入吧

请问WORD中哪种格式是嵌入图片？哪种格式是非嵌入图片？

daibao88

嵌入图形、自由浮动图形 InlineShape 、Shape

Tobin_Zhang

daibao88 发表于 2019-7-7 09:53
嵌入图形、自由浮动图形 InlineShape 、Shape

能具体说明一下么？或者具体应该如何修改？谢谢！

daibao88

Selection.InlineShapes(1).ConvertToShape
图形转换，自己f1看看帮助