Excel VBA如何批量设置工作表图片模糊效果并指定模糊半径

核心问题解决说明 #

• 模糊半径参数配置：调用PictureEffects.Insert(msoEffectBlur)插入模糊效果后，会返回对应的效果对象，通过修改该对象EffectParameters(1)的Value属性即可设置模糊半径，参数单位为像素，取值范围0~100，数值越大模糊程度越高。
• 全图遍历逻辑：遍历工作表的Shapes集合，通过判断形状类型是否为msoPicture筛选出图片对象，避免误处理形状、文本框、图表等其他元素。

完整可直接运行的代码 #

Sub BatchApplyBlurToPictures()
    Dim targetSheet As Worksheet
    Dim shapeItem As Shape
    Dim blurEffect As PictureEffect
    ' 自定义模糊半径，可根据需求修改数值
    Const CUSTOM_BLUR_RADIUS As Single = 15
    
    ' 设置处理目标工作表，当前示例为活动工作表，可替换为Set targetSheet = Sheets("你的工作表名")
    Set targetSheet = ActiveSheet
    
    ' 遍历表内所有对象
    For Each shapeItem In targetSheet.Shapes
        ' 仅对图片类型对象执行操作
        If shapeItem.Type = msoPicture Then
            ' 清除原有图片效果防止叠加
            shapeItem.Fill.PictureEffects.Delete
            ' 插入模糊效果
            Set blurEffect = shapeItem.Fill.PictureEffects.Insert(msoEffectBlur)
            ' 配置模糊半径参数
            blurEffect.EffectParameters(1).Value = CUSTOM_BLUR_RADIUS
        End If
    Next shapeItem
End Sub

使用提示：如果需要处理工作簿内所有工作表的图片，可以再加一层循环遍历所有Worksheet对象即可；如果存在特殊格式的嵌入图片未被识别，可以补充判断shapeItem.Type = msoLinkedPicture覆盖链接型图片场景。

内容的提问来源于stack exchange，提问作者Juriaan_vd_Pol