Excel VBA如何实现不旋转形状仅调整填充图片的旋转角度

核心结论 #

Office VBA 没有提供直接旋转形状内部填充图片的原生属性，你当前用到的RotateWithObject仅能控制填充是否跟随形状旋转，不支持单独调整填充图片的角度，你没有遗漏官方公开的接口。

可落地实现方案 #

可以借助 Windows 自带的 WIA 组件在内存中完成图片旋转，再重新填充到原形状中，全程无需用户手动打开外部软件操作，实现代码如下：

Sub RotateShapeFillPic(rotateAngle As Long)
    ' rotateAngle 可选值：90、180、270，对应顺时针旋转的角度
    Dim shp As Shape
    Dim tempPath As String
    Dim img As Object
    Dim ip As Object
    
    ' 取当前选中的第一个形状
    Set shp = Selection.ShapeRange(1)
    If shp.Fill.Type <> msoFillPicture Then Exit Sub ' 不是图片填充直接退出
    
    ' 生成临时文件路径
    tempPath = Environ("TEMP") & "\temp_shp_pic.png"
    
    ' 导出形状当前的填充图片到临时文件
    shp.Fill.Picture.SaveAs tempPath
    
    ' 调用WIA组件处理图片旋转
    Set img = CreateObject("WIA.ImageFile")
    Set ip = CreateObject("WIA.ImageProcess")
    img.LoadFile tempPath
    
    ip.Filters.Add ip.FilterInfos("RotateFlip").FilterID
    ip.Filters(1).Properties("RotationAngle") = rotateAngle
    Set img = ip.Apply(img)
    
    ' 保存旋转后的图片
    If Dir(tempPath) <> "" Then Kill tempPath
    img.SaveFile tempPath
    
    ' 重新填充到原形状
    With shp.Fill
        .Visible = msoTrue
        .UserPicture tempPath
        .TextureTile = msoFalse
        .RotateWithObject = msoFalse
    End With
    
    ' 清理临时文件
    Kill tempPath
    Set img = Nothing
    Set ip = Nothing
    Set shp = Nothing
End Sub

' 调用示例：顺时针旋转90度
Sub Rotate90()
    Call RotateShapeFillPic(90)
End Sub

注意事项 #

• 该方案仅适配 Windows 系统下的 Office，WIA 为 Windows 内置组件，无需额外安装依赖。
• 可以根据需求调整rotateAngle参数，支持90、180、270三个角度的旋转，满足常规的图片方向校正需求。
• 如果有留存原图片路径，可以直接修改代码读取原图片路径进行旋转后替换，不需要导出形状的填充图片。

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