如何使用VBA inlineshape禁用圖片疊加

Question

word文檔有很多圖片。 圖片應顯示一頁。 通常我只需要將它們全部插入 select 即可。 所有這些都將以良好的順序占據每頁一張圖片。

但是，有時，單詞會將它們疊加在一起。 結果只有一頁，許多圖片相互堆疊。

我找到了一些 VBA 腳本來改變圖片的比例。 我想更改它以禁用圖片重疊或更改它們的環繞設置。

Dim i As Long
With ActiveDocument
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
            .ScaleHeight = 50
            .ScaleWidth = 50
        End With
    Next i
End With

如何更改上面的腳本以禁用它們相互覆蓋？

Answer 1

正如約翰所說：

如果圖片堆疊或重疊，則它們不會與文本內聯。

您可以使用以下代碼更正該錯誤：

With ActiveDocument
    Do While .Shapes.Count > 0
        .Shapes(1).ConvertToInlineShape
    Loop
End With