Sub Example_SetBackgroundColor()
    'Этот пример создает объект TableStyle и устанавливает значения для 
    'имени стиля и других признаков.
    
      Dim dictionaries As AcadDictionaries
      Set dictionaries = ThisDrawing.Database.dictionaries
  
      Dim dictObj As AcadDictionary
      Set dictObj = dictionaries.Item("acad_tablestyle")
  
      'Создайте выбранный объект TableStyle в словаре
      Dim keyName As String
      Dim className As String
      Dim customObj As AcadTableStyle
      keyName = "NewStyle"
      className = "AcDbTableStyle"
      Set customObj = dictObj.AddObject(keyName, className)
      
      customObj.Name = "NewStyle"
      customObj.Description = "New Style for My Tables"
  
      customObj.FlowDirection = ackBottomToTop
      customObj.HorzCellMargin = 0.22
      customObj.BitFlags = 1
      customObj.SetTextHeight 3, 1.3
  
      Dim col As New AcadAcCmColor
      col.SetRGB 12, 23, 45
      customObj.SetBackgroundColor 3, col
      customObj.SetBackgroundColorNone 3, False
      customObj.SetGridVisibility 3, 3, True
  
      customObj.SetAlignment 3, ackBottomRight
      col.SetRGB 244, 0, 0
      customObj.SetGridColor 3, 1, col
      
      MsgBox "Имя Стиля Таблицы = " & customObj.Name & vbCrLf & _
        "Описание Стиля = " & customObj.Description & vbCrLf & _
        "Направление Потока = " & customObj.FlowDirection & vbCrLf & _
        "Горизонтальный Край Ячейки = " & customObj.HorzCellMargin & vbCrLf & _
        "Разрядные Флажки = " & customObj.BitFlags & vbCrLf & _
        "Высота Текста Строки Заголовка = " & customObj.GetTextHeight(ackTitleRow) & vbCrLf & _
        "Видимость Сетки для HorizontalBottom TitleRow  = " & customObj.GetGridVisibility(ackHorzBottom, ackTitleRow) & vbCrLf & _
        "Выравнивание Строки Заголовка = " & customObj.GetAlignment(ackTitleRow) & vbCrLf & _
	 "Подавление Заголовка = " & customObj.HeaderSuppressed
	
End Sub