Свойство CommandButton.Bevel (Access)
Возвращает или задает эффект скоса, примененный к указанному объекту. Для чтения и записи, Long.
Синтаксис
expression. Конические
Выражение Переменная, представляющая объект CommandButton .
Замечания
Свойство Bevel содержит числовое выражение, представляющее эффект скоса, применяемый к указанному объекту. Значение по умолчанию свойства Bevel равно 0, что не применяет эффект скоса.
Эффекты скоса включают значения, перечисленные в следующей таблице.
| Значение | Эффект |
|---|---|
| 0 | Нет |
| 1 | Круглый |
| 2 | Расслабленная вставка |
| 3 | Крест |
| 4 | Прохладный наклон |
| 5 | Угловая |
| 6 | Soft Round |
| 7 | Выпуклой |
| 8 | НАКЛОН |
| 9 | Divot |
| 10 | Реблет |
| 11 | Hard Edge |
| 12 | Ар-деко |
Чтобы просмотреть доступные эффекты скоса и применить скос через пользовательский интерфейс, сначала откройте форму или отчет в режиме макета или конструктора, щелкнув правой кнопкой мыши форму или отчет в области навигации, а затем выберите нужное представление.
Затем выберите объект, к которому требуется применить эффект скоса. На вкладке Формат в группе Форматирование элемента управления выберите Рельеф эффектов фигуры>, а затем выберите эффект скоса.
Обратите внимание, что эффекты скоса индексируются слева направо, а затем сверху вниз. Первый элемент в разделе Без скоса имеет значение 0. В разделе Bevel первая строка содержит эффекты скоса со значениями от 1 до 4, вторая строка от 5 до 8, третья строка с 9 до 12.
Это свойство не отображаются на странице свойств.
Пример
В следующем примере кода для эффекта скоса задается значение Cross.
Public Const BevelEffectNone = 0
Public Const BevelEffectCircle = 1
Public Const BevelEffectRelaxedInset = 2
Public Const BevelEffectCross = 3
Public Const BevelEffectCoolSlant = 4
Public Const BevelEffectAngle = 5
Public Const BevelEffectSoftRound = 6
Public Const BevelEffectConvex = 7
Public Const BevelEffectSlope = 8
Public Const BevelEffectDivot = 9
Public Const BevelEffectRiblet = 10
Public Const BevelEffectHardEdge = 11
Public Const BevelEffectArtDeco = 12
Me.ctl.Bevel = BevelEffectCross
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.