Word VBA：批量更改图片的格式

最新推荐文章于 2024-04-17 11:30:00 发布

VBA-守候

最新推荐文章于 2024-04-17 11:30:00 发布

阅读量1.9k

点赞数

分类专栏： VBA办公自动化文章标签： vba msword 编程语言自动化

本文链接：https://blog.csdn.net/qq_64613735/article/details/125755397

版权

VBA办公自动化专栏收录该内容

21 篇文章 14 订阅

订阅专栏

目录

一、思路

1.遍历形状

2.判断形状类型

一般可能不需要将插入的悬浮型图片以外的形状（如文本框、矩形等）转换为嵌入式

所以本文示例代码增加了这个选项，根据需要按提示选择即可

3.操作完成

二、示例代码

Sub 形状悬浮转嵌入()
    Dim i As Integer
    Dim sp As Shape
    Dim allConv As Long
    
    allConv = MsgBox("转换所有形状（如文本框、矩形）[是]" & vbCrLf & "仅转换图形[否]" & vbCrLf _
        & "即出程序[取消]", vbInformation + vbYesNoCancel + vbDefaultButton2, "被转换类型")

    If allConv = vbNo Then
        For Each sp In ActiveDocument.Shapes
            If sp.Type = msoPicture Then
                sp.ConvertToInlineShape
                i = i + 1
            End If
        Next
    ElseIf allConv = vbYes Then
        For Each sp In ActiveDocument.Shapes
            sp.ConvertToInlineShape
            i = i + 1
        Next
    Else
        Exit Sub
    End If
    
    MsgBox Format(i, "完成，共转换了0个形状")
End Sub