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 WithEnd With