VBA 图形里面加载指定图片 实现预览功能

With ActiveSheet.Shapes.AddPicture(path, msoTrue, msoTrue, Px + 30, Py - 180, 120, 100)
    .Name = "Picture"
    With .ForeColor
        .Type = 2
    End With
    '.BackgroundStyle = 5

    With .PictureFormat
         ' .CropLeft = 100
        '.TransparencyColor = "0,0,0"
        '.TransparentBackground = msoCTrue
    End With
    With .Shadow
        .Blur = 2
        .Type = msoShadow25
        .Obscured = 1
         ' .OffsetX = 10
         ' .OffsetY = 10
        .Transparency = 0.5686300099
        
    End With

End With