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