Показать сообщение отдельно
Старый 18.05.2009, 17:05   #8  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Прозрачность можно придать в самом 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