Метод Application.GanttBarStyleEdit (Project)
Изменяет или создает стиль ганта.
Синтаксис
выражение. GanttBarStyleEdit( _Item_, _Create_, _Name_, _StartShape_, _StartType_, _StartColor_, _MiddleShape_, _MiddleColor_, _MiddlePattern_, _EndShape_, _EndType_, _EndColor_, _ShowFor_, _Row_, _From_, _To_, _BottomText_, _TopText_, _LeftText_, _RightText_, _InsideText_ )
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Элемент | Обязательный | String | Имя или номер строки стиля ганта для изменения в диалоговом окне Стили панели . |
| Создание | Необязательный | Логический | Значение true, если новый стиль ганта создается и вставлен в диалоговое окно Стили панели перед стилем ганта, указанным в элементе. Если элемент имеет значение "-1", новый стиль ганта добавляется в конец списка стилей. Значение по умолчанию — False. |
| Name | Необязательно заполнять. | String | Новое имя панели Ганта. |
| StartShape | Необязательный | Integer | Начальная форма полосы Ганта. Значение по умолчанию — pjNone. Может быть одной из констант PjBarEndShape . |
| StartType | Необязательный | Integer | Начальный тип панели Ганта. Может быть одной из следующих констант PjBarType : pjDashed, pjFramed или pjSolid. Значение по умолчанию — pjSolid. |
| StartColor | Необязательный | Integer | Начальный цвет панели Ганта. Значение по умолчанию — pjBlack. Может быть одной из констант PjColor . |
| MiddleShape | Необязательный | Integer | Средняя форма ганта. Может быть одной из констант PjBarShape . Значение по умолчанию — pjRectangleBar. |
| MiddleColor | Необязательный | Integer | Средний цвет полосы Ганта. Может быть одной из констант PjColor . Значение по умолчанию — pjBlack. |
| MiddlePattern | Необязательный | Integer | Средний узор полосы Ганта. Может быть одной из констант PjFillPattern . Значение по умолчанию — pjMediumFillPattern. |
| EndShape | Необязательный | Integer | Форма конца полосы Ганта. Может быть одной из констант PjBarEndShape . Значение по умолчанию — pjNone. |
| EndType | Необязательный | Integer | Конечный тип панели Ганта. Может быть одной из следующих констант PjBarType : pjDashed, pjFramed или pjSolid. Значение по умолчанию — pjSolid. |
| EndColor | Необязательный | Integer | Цвет конца полосы Ганта. Может быть одной из констант PjColor . Значение по умолчанию — pjBlack. |
| ShowFor | Необязательный | String | Один или несколько типов задач (например, обычные, разделенные, сводные, вехи и т. д.), разделенные символом разделителя списка. |
| Row | Необязательный | Integer | Число от 1 до 4, указывающее строку, в которой отображается ганта. Значение по умолчанию равно 1. |
| From | Необязательный | String | Имя поля даты, указывающее начало строки Ганта. |
| Для | Необязательный | String | Имя поля даты, указывающее конец строки Ганта. |
| BottomText | Необязательный | String | Поле задачи, отображаемое под панелью Ганта. |
| TopText | Необязательный | String | Поле задачи, отображаемое над панелью Ганта. |
| LeftText | Необязательный | String | Поле задачи, отображаемое слева от панели Ганта. |
| RightText | Необязательный | String | Поле задачи, отображаемое справа от панели Ганта. |
| InsideText | Необязательный | String | Поле задачи, отображаемое внутри панели Ганта. |
Возвращаемое значение
Boolean
Примечания
Чтобы вручную отобразить диалоговое окно Стили линейчатой панели, перейдите на вкладку Формат на вкладке Работа с диаграммами Ганта. В группе Стили панели в раскрывающемся списке Формат щелкните Стили панели. Диалоговое окно Стили панели может содержать до 200 записей стилей.
Чтобы изменить стили ганта, где цвета могут быть шестнадцатеричными значениями RGB, используйте метод GanttBarEditEx .
Пример
В следующем примере создается стиль панели, имеющий светло-зеленый цвет и заканчивающийся фигурой звезды.
Sub CreateGanttBar()
GanttBarStyleEdit Item:=-1, Create:=True, Name:="My New Bar Style", MiddleColor:=pjLime, EndShape:=pjStar
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.