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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

30
Задача 2.8. Создать процедуру для преобразования рабочего листа в
форму-заставку для презентации фирмы.
Рассмотрим применение объекта Shape из семейства Shapes в про-
цессе разработки формы-заставки для презентации возможностей РУС-
ФИНАНС БАНКА. Объект Shape представляет любой графический эле-
мент («фигуру»), размещенный «поверх» рабочего листа или диаграммы.
Все объекты на данном листе
входят в семейство Shapes, которое объеди-
няет точечные и другие рисунки, прямоугольники, линии, текстовые поля,
объекты WordArt и даже элементы управления. Некоторые методы и свой-
ства присущи каждому объекту Shape, другие – только определенным ти-
пам фигур. Рассмотрим некоторые свойства и методы, которые будут ис-
пользованы в приведенной ниже программе при размещении графического
объекта
типа msoAutoShape на форме.
Свойства объекта
Type – константа, определяющая тип объекта Shape (например,
msoLine, msoAutoShape, msoPicture). Список констант представлен в спра-
вочной системе и в окне Просмотр объектов (Object Browser).
Fill – возвращает объект FillFormat, свойства которого определяют
параметры заливки объекта Shape.
Shadow – возвращает объект ShadowFormat, свойства которого
определяют параметры тени объекта Shape.
TextFrame – возвращает
объект TextFrame, подобъекты которого
управляют текстом, отображаемым в объекте Shape, и его форматированием.
Методы семейства Shapes
AddShape – создает объект AutoShape (автофигуру).
Ниже предложен программный код, в котором объект Worksheet -
рабочий лист Excel служит основой формы-заставки для презентации бан-
ка, которая занимает весь рабочий лист. Программный код выглядит сле-
дующим образом.
Public Sub Заставка( )
Worksheets(1).Select
With ActiveWindow
‘Определяет размер окна
.WindowState = xlMaximized
‘ Не отображаются линии сетки
.DisplayGridlines = False
‘ Не отображаются заголовки строк и столбцов
.DisplayHeadings = False
‘ Нет названия объекта в строке заголовка
.Caption =””
‘ Не отображается полоса горизонтальной прокрутки
.DisplayHorizontalScrollBar = False 
      Задача 2.8. Создать процедуру для преобразования рабочего листа в
форму-заставку для презентации фирмы.
      Рассмотрим применение объекта Shape из семейства Shapes в про-
цессе разработки формы-заставки для презентации возможностей РУС-
ФИНАНС БАНКА. Объект Shape представляет любой графический эле-
мент («фигуру»), размещенный «поверх» рабочего листа или диаграммы.
Все объекты на данном листе входят в семейство Shapes, которое объеди-
няет точечные и другие рисунки, прямоугольники, линии, текстовые поля,
объекты WordArt и даже элементы управления. Некоторые методы и свой-
ства присущи каждому объекту Shape, другие – только определенным ти-
пам фигур. Рассмотрим некоторые свойства и методы, которые будут ис-
пользованы в приведенной ниже программе при размещении графического
объекта типа msoAutoShape на форме.
      Свойства объекта
      Type – константа, определяющая тип объекта Shape (например,
msoLine, msoAutoShape, msoPicture). Список констант представлен в спра-
вочной системе и в окне Просмотр объектов (Object Browser).
      Fill – возвращает объект FillFormat, свойства которого определяют
параметры заливки объекта Shape.
      Shadow – возвращает объект ShadowFormat, свойства которого
определяют параметры тени объекта Shape.
      TextFrame – возвращает объект TextFrame, подобъекты которого
управляют текстом, отображаемым в объекте Shape, и его форматированием.
      Методы семейства Shapes
      AddShape – создает объект AutoShape (автофигуру).
      Ниже предложен программный код, в котором объект Worksheet -
рабочий лист Excel служит основой формы-заставки для презентации бан-
ка, которая занимает весь рабочий лист. Программный код выглядит сле-
дующим образом.

Public Sub Заставка( )
    Worksheets(1).Select
    With ActiveWindow
     ‘Определяет размер окна
  .WindowState = xlMaximized
‘ Не отображаются линии сетки
       .DisplayGridlines = False
‘ Не отображаются заголовки строк и столбцов
       .DisplayHeadings = False
‘ Нет названия объекта в строке заголовка
       .Caption =””
‘ Не отображается полоса горизонтальной прокрутки
       .DisplayHorizontalScrollBar = False

                                  30

Страницы