【软件】WPS批量删除所有背景图片

WPS宏代码1：批量删除WPS所有图片

（慎用，删除正文所有图片，可能删除图表类图片）

一键删除文档所有图片（含背景、浮动图、嵌入图）

Sub 批量删除WPS所有图片()    Dim i As Long    '删除所有浮动形状图片    For i = ActiveDocument.Shapes.Count To 1 Step -1        ActiveDocument.Shapes(i).Delete    Next i    '删除所有嵌入式图片    For i = ActiveDocument.InlineShapes.Count To 1 Step -1        ActiveDocument.InlineShapes(i).Delete    Next i    '关闭页面背景    On Error Resume Next    ActiveDocument.Background.Visible = False    On Error GoTo 0    MsgBox "所有背景图片、正文图片已批量删除完毕！"End Sub

WPS宏代码2：取消图片组合并删除高度大于20厘米图片

（推荐代码，避免误删图表类图片）

WPS 文字 VBA 宏：取消所有图片组合 + 删除高度大于 20cm 的图片

适配 WPS，无报错，只处理图片形状、不碰文字，先取消组合，再筛选高度＞20cm 删除。

Sub 取消图片组合并删除高度大于20厘米图片()    Dim shp As Shape    Dim i As Long    '单位：厘米转磅  1cm ≈ 28.35磅    Const MaxH As Single = 20 * 28.35    '第一步：遍历取消所有组合    On Error Resume Next    For Each shp In ActiveDocument.Shapes        If shp.GroupItems.Count > 1 Then            shp.Ungroup        End If    Next shp    On Error GoTo 0    '第二步：倒序删除高度大于20cm的形状图片    For i = ActiveDocument.Shapes.Count To 1 Step -1        Set shp = ActiveDocument.Shapes(i)        '高度超过20cm则删除        If shp.Height > MaxH Then            shp.Delete        End If    Next i    MsgBox "处理完成：已取消所有组合，并删除高度大于20cm的图片"End Sub

WPS宏代码3：

适配 WPS、不报HeadersFooters错误，只删页面背景，不删正文任何图片、不删页眉普通内容。

Sub 只删除页面背景不删正文图片()    On Error Resume Next    ' 清除图片背景、恢复纯白纯色背景    With ActiveDocument.Background.Fill        .UserPicture ""        .Solid        .ForeColor.RGB = RGB(255, 255, 255)        .Visible = msoFalse    End With    On Error GoTo 0    MsgBox "已仅清除页面背景图片，正文图片保留！"End Sub