我的一份word2016檔案中包含了30幾張圖片，是由程式自動加入的，圖片版式是浮于文字上方的，我想把圖片版式批量修改成嵌入式版式，于是寫了個VBA宏去處理，但每次執行宏以后，總是有那么幾副圖片的版式無法修改成功，但其它的可以。搞了好幾天了，也沒法成功，希望得到幫助，謝謝了。代碼如下：
Sub ConvertThem()
Dim oShape As Shape
On Error Resume Next
For Each oShape In ActiveDocument.Shapes
oShape.Select
oShape.ConvertToInlineShape
Selection.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next
End Sub
uj5u.com熱心網友回復：
用網盤上個可以測驗的示例檔案吧，方便測驗，不然不一定能重現你的問題uj5u.com熱心網友回復：
好的明天上示例檔案，謝謝轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/252283.html
標籤：VBA