Ответ: Как запомнить наложенную на Shape прозрачность
Да пожалуйста, я не жадный:
Sub GetSetShape(shIs As Shape, shTo As Shape)
On Error Resume Next
Dim d11 As Double, d12 As Double, d21 As Double, d22 As Double, X As Double, Y As Double, W As Double, H As Double
Dim tx As Double, ty As...