Делает прозрачными только края объекта. Спрашивает сколько на край - так же как в dropshadow (видимо в процентах от исходного размера фигуры)
первая проба.
Sub transparentEdge()
Const dpi& = 300
Dim origSR As New ShapeRange, sr As ShapeRange, sh As Shape, sh2 As Shape, toSel As...