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

‘ Устанавливает цвет
        .ShapeRange.Fill.ForeColor.SchemeColor = 54
‘ Вводит текст, располагая его на графическом объекте
           .Characters.Text = “Мы рады Вам помочь _
             с кредитом”
           .HorizontalAlignment = xlCenter
           .VerticalAlignment = xlCenter
            With.Font
               .Name = “Arial”
               .FontStyle = “Regular”
               .Size = 12
               .Bold = True
               .ColorIndex = 2
            End With
     End With
   End With
   Range (“A1”).Select
End Sub

      Самостоятельно модифицировать программный код процедуры, вы-
полнив следующие действия:
1. Открыть диалоговое окно просмотра объектов Object Browser командой
   View / Object Browser. В открывшемся окне в списке библиотек вы-
   брать элемент Office, а в следующем поле со списком выбрать или вве-
   сти элемент msoShape и нажать на кнопку поиска. После выбора в ниж-
   ней части окна будет приведен список всех объектов из класса
   msoShape. В списке Members of ‘MsoAutoShapeType’ выбрать подходя-
   щий объект и расположить его на форме вместо объекта msoShapeU-
   pRibbon.
2. Настроить размеры графического объекта таким образом, чтобы на нем
   полностью был размещен текст оказываемых услуг банком.
3. Расположить текст приглашения к сотрудничеству с банком по центру в
   верхней части заставки.
4. Изменить название банка в тексте приглашения в ячейке «А2».
5. Изменить текст предлагаемых услуг банком на графическом объекте
   формы.
6. Изменить цвет верхней и нижней частей заставки, выбрав его из 56 цве-
   тов цветовой палитры Excel.




                                  32