Sub Example_Transparency()
    'Этот пример вставляет растровое изображение и находит текущее 
    'состояние Прозрачности для изображения. Затем изменяет состояние 
    'Прозрачности изображения.
    
    'Этот пример использует "downtown.jpg" найденный в типовом каталоге. 
    'Если Вы не имеете изображения или оно расположено в другом каталоге, 
    'вставте допустимый путь и имя для переменной imageName ниже.
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double, rotAngle As Double
    Dim imageName As String
    Dim raster As AcadRasterImage
    imageName = "C:\AutoCAD\sample\downtown.jpg"
    insertionPoint(0) = 2#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotAngleInDegree = 0#
    rotAngle = rotAngleInDegree * 3.141592 / 180#
    
    On Error Resume Next
    
    'Создает растровое изображение в пространстве модели
    Set raster = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotAngle)
    If Err.Description = "Filer error" Then
        MsgBox imageName & " не найден."
        Exit Sub
    End If

    'Найдите текущую Прозрачность
    ThisDrawing.Regen True
    MsgBox "Текущая прозрачность: " & raster.Transparency, vbInformation
    
    'Измените Прозрачность
    If (raster.Transparency) Then
        raster.Transparency = False
    Else
        raster.Transparency = True
    End If
    ThisDrawing.Regen True
    MsgBox "Прозрачность теперь: " & raster.Transparency, vbInformation
End Sub