目? 錄

一、思路

1.遍歷形狀

2.判斷形狀類型

3.操作完成

二、示例代碼

---

一、思路

1.遍歷形狀

2.判斷形狀類型

一般可能不需要將插入的懸浮型圖片以外的形狀（如文本框、矩形等）轉換為嵌入式

標題懸浮型圖片以外的形狀

所以本文示例代碼增加了這個選項，根據需要按提示選擇即可

3.操作完成

二、示例代碼

Sub 形狀懸浮轉嵌入()Dim i As IntegerDim sp As ShapeDim allConv As LongallConv = MsgBox("轉換所有形狀（如文本框、矩形）[是]" & vbCrLf & "僅轉換圖形[否]" & vbCrLf _& "即出程序[取消]", vbInformation + vbYesNoCancel + vbDefaultButton2, "被轉換類型")If allConv = vbNo ThenFor Each sp In ActiveDocument.ShapesIf sp.Type = msoPicture Thensp.ConvertToInlineShapei = i + 1End IfNextElseIf allConv = vbYes ThenFor Each sp In ActiveDocument.Shapessp.ConvertToInlineShapei = i + 1NextElseExit SubEnd IfMsgBox Format(i, "完成，共轉換了0個形狀") End Sub

?

總結

以上是生活随笔為你收集整理的Word VBA：批量更改图片的格式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。