Visual Basic for Applications. Практика. Нагина Е.К - 31 стр.

‘ Не отображается полоса вертикальной прокрутки
       .DisplayVerticalScrollBar = False
‘ Не отображаются ярлычки рабочих листов
       .DisplayWorkbookTabs = False
    End With
‘Задается фон диапазона: один из 56 цветов цветовой
      па‘литры Excel, если 0 – стандартный цвет
    Range (“A1:Z5”).Interior.ColorIndex = 16
‘ Изменяет свойства границы диапазона
    With Range (“A6:Z6”).Borders (xlEdgeTop)
‘ Настройка стиля границы, принимает одно из 8 значе-
      ний
       .LineStyle = xlContinuous
       .Weight = xlThick ‘ Настройка толщины границы
       .ColorIndex = 1 ‘ Выбор цвета границы
    End With
‘ Задает фон диапазона
    Range (“A6:Z100”). Interior.ColorIndex = 5
‘ Осуществляет выбор диапазона
    Range (“A2:J2”).Select
    With Selection ‘ С выбранным диапазоном
‘ Слияние выбранного диапазона в одну ячейку “А2”
       .Merge
‘ Горизонтальное выравнивание
       .HorizontalAlignment = xlCenter
‘ Ввод текста в ячейку А2
       .Value = “Добро пожаловать в РУСФИНАНС БАНК”
‘ Выбирает шрифт как объект работы с ним
         With.Font
          .Name = “Times New Roman” ’ Задает имя
      шрифту
          .Size = 36 ‘ устанавливает размер шрифта
‘ Задает полужирное начертание
          .Bold = True
‘ Устанавливает цвет для шрифта
          .ColorIndex = 6
        End With
      End With
      With Worksheets (1)
‘ На рабочем листе “Лист 1” создает графический объ-
        ект и выбирает его
         .Shapes.AddShape(msoShapeUpRibbon, 170, 125,
        _ 300, 50).Select
         With Selection ‘ С выбранным объектом
                           31