如何通过Excel VBA宏为插入的图片应用图片样式？

当然可以通过VBA实现图片样式的应用！你遇到录制宏没用的情况很常见——因为Excel的内置图片样式是基于主题预设的，录制宏有时候没法准确捕获对应的VBA属性调用，我给你两种靠谱的解决方案：

方法1：应用内置的图片预设样式 #

Excel提供了48种内置的图片样式（对应msoShapeStylePreset1到msoShapeStylePreset48），你可以直接指定编号来应用：

Sub ApplyBuiltInPictureStyle()
    Dim targetImg As Shape
    
    ' 先插入一张图片（替换成你的图片路径）
    Set targetImg = ActiveSheet.Shapes.AddPicture( _
        Filename:="C:\YourImagePath.jpg", _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=100, Top:=100, Width:=180, Height:=120)
    
    ' 应用第15种内置样式（你可以修改数字15来切换其他样式）
    targetImg.ShapeStyle = msoShapeStylePreset15
End Sub

如果要给已有的图片应用样式，直接通过形状名称或索引获取对象即可：

Sub ApplyStyleToExistingPicture()
    Dim targetImg As Shape
    ' 通过形状名称获取（比如你的图片叫"Picture 1"）
    Set targetImg = ActiveSheet.Shapes("Picture 1")
    ' 应用样式
    targetImg.ShapeStyle = msoShapeStylePreset25
End Sub

方法2：自定义图片格式（模拟样式效果） #

如果内置样式不符合需求，你可以手动设置图片的边框、阴影、柔化边缘等属性，完全复刻想要的样式：

Sub CustomPictureFormat()
    Dim targetImg As Shape
    Set targetImg = ActiveSheet.Shapes("Picture 1")
    
    ' 设置蓝色边框
    With targetImg.Line
        .Visible = msoTrue
        .Weight = 2
        .ForeColor.RGB = RGB(79, 129, 189)
    End With
    
    ' 添加淡灰色阴影
    With targetImg.Shadow
        .Visible = msoTrue
        .Blur = 4
        .OffsetX = 3
        .OffsetY = 3
        .ForeColor.RGB = RGB(100, 100, 100)
        .Transparency = 0.6
    End With
    
    ' 柔化边缘效果
    targetImg.SoftEdge.Radius = 2
End Sub

批量给所有图片应用样式 #

如果要处理工作表里的所有图片，可以遍历形状集合：

Sub ApplyStyleToAllPictures()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        ' 判断是否为图片类型
        If shp.Type = msoPicture Then
            shp.ShapeStyle = msoShapeStylePreset20 ' 统一应用样式20
        End If
    Next shp
End Sub

为什么录制宏没效果？ #

当你手动点击图片样式时，Excel后台是通过设置Shape.ShapeStyle属性实现的，但录制宏有时会生成大量冗余的格式代码，甚至没正确捕获这个核心属性调用，所以直接用上面的代码会更可靠。

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