pasteSpecial приминимо к рисунку в Excel

[Eldar9x]

Цитата:

2 Eldar9x: А в этом случае рисунок вставляется прозрачный или нет?

нет, не прозрачный

[Gustav]

Прозрачность можно придать в самом Excel'е. Надо только знать RGB цвета, который делать прозрачным. Следующий VBA-код делает прозрачным белый цвет - RGB(255,255,255):

 
Sub Macro4()

    Dim myPicture As Shape
    
    Set myPicture = ActiveSheet.Shapes.AddPicture _
        ("C:\0005.jpg", msoFalse, msoTrue, _
        Range("B2").Left, Range("B2").Top, 100, 100)
    
    myPicture.PictureFormat.TransparentBackground = msoTrue
    myPicture.PictureFormat.TransparencyColor = RGB(255, 255, 255)

End Sub