如何用VBA实现图片60%透明度？现有参考方案无法满足需求

以下是无需额外形状、支持多类型图片且可精准设置60%透明度的VBA代码，解决宏录制无法实现、现有方案局限性的问题：

Sub SetPictureTransparency()
    Dim targetPic As Shape
    ' 选中目标图片后运行宏，或替换为指定图片的名称/索引
    Set targetPic = ActiveWindow.Selection.ShapeRange(1)
    
    ' 设置60%透明度（参数范围0-1，0为完全透明，1为完全不透明）
    targetPic.Fill.Transparency = 0.6
End Sub

代码说明 #

• 若要指定特定图片，可将ActiveWindow.Selection.ShapeRange(1)替换为ActiveSheet.Shapes("图片名称")，将“图片名称”替换为实际图片的名称
• 调整透明度只需修改0.6数值即可，比如设置30%透明度就改为0.3
• 支持Excel中插入的各类图片（矢量图、位图均适用），无需额外添加形状，代码简洁高效

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