用VBA调整word文档中的图片格式，发生图片位移，如何解决

dongdonggood

我的一个word文档中自动插入了图片，图片默认是以嵌入式显示的，图片会被文字遮挡，我用论坛里帖子中的模块实现了将嵌入式改成上下环绕式的功能，文字不再遮挡了，但是，图片位置会发生上移（实际上是以图片最上面的位置移动了图片），有可能出现本来在段尾的图片串到了段中，有没有办法解决这个问题。

请大家指教。谢谢！

蜀中草莽

先把行距设为单倍，运行宏，运行完毕，再把行距设为固定值

dongdonggood

蜀中草莽 发表于 2022-7-26 10:45
先把行距设为单倍，运行宏，运行完毕，再把行距设为固定值

收到
谢谢！！！！
我直接录了宏，插到里面。
问题完美解决！



Sub 图片位置()
Dim oShape As Variant, shapeType As WdWrapType
    On Error Resume Next
   
       For Each oShape In ActiveDocument.InlineShapes
       Set oShape = oShape.ConvertToShape
        oShape.Select
   ActiveDocument.Shapes.SelectAll
   
With oShape
.WrapFormat.Type = wdWrapTopBottom '文字环绕为上下型
.WrapFormat.AllowOverlap = False '不允许重叠
End With
Next
Selection.WholeStory
    With Selection.ParagraphFormat
     .LineSpacing = 2
        .LineSpacing = 25
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 25
        .DisableLineHeightGrid = 0
        .ReadingOrder = wdReadingOrderLtr
        .AutoAdjustRightIndent = -1
        .WidowControl = 0
        .KeepWithNext = 0
        .KeepTogether = 0
        .PageBreakBefore = 0
        .FarEastLineBreakControl = -1
        .WordWrap = -1
        .HangingPunctuation = -1
        .HalfWidthPunctuationOnTopOfLine = 0
        .AddSpaceBetweenFarEastAndAlpha = -1
        .AddSpaceBetweenFarEastAndDigit = -1
        .BaseLineAlignment = wdBaselineAlignAuto
End With
End Sub

dongdonggood

我直接在模板里设置了单倍行距，在运行宏以后再设定行距为固定值。

常扬帆

dongdonggood 发表于 2022-7-26 11:18
收到
谢谢！！！！
我直接录了宏，插到里面。

请问：如果图片要改为四周型呢？谢谢！

leitian72853

谢谢分享谢谢分享