Пятница, 26.04.2024, 03:53
Все о программировании в MS Office
Приветствую Вас Гость | RSS
Главная Справочник VBA Регистрация Вход

ВНИМАНИЕ!!!

сайт переехал на новый домен

 

VBA-HELP.RU

Меню сайта

Категории
Общие материалы [5]

Друзья сайта
  • Инструкции для uCoz

  • Реклама

    Главная » Справочник VBA » Общие сведения » Общие материалы

    Border объект

           Этот объект имеется у любого другого объекта имеющего границу или несколько границ (сторон или граней объекта).

     

    Пример:

    Следующий пример изменяет тип линии строки тенденции на активной диаграмме.

    With ActiveChart.SeriesCollection(1).Trendlines(1)

        .Type = xlLinear

        .Border.LineStyle = xlDash

    End With

          У объектов Range и Style есть четыре дискретных границы - левая (left), правая (right), верхняя (top), и нижняя (bottom) - которые могут быть возвращены индивидуально или как группа. Используйте свойство Borders, чтобы возвратить коллекцию Borders, которая содержит все четыре границы и обрабатывает границы как единый модуль.
    Следующий пример добавляет двойную границу к ячейке A1 на рабочем листе один.

    Worksheets(1).Range("A1").Borders.LineStyle = xlDouble 

           Используйте Borders(index), где index идентифицирует отдельную границу в объекте.

    Следующий пример выбирает цвет нижней границы ячеек A1:G1.

    Worksheets("Sheet1").Range("A1:G1"). _

        Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

    Index может быть одним из следующих значений  константы XlBordersIndex:

    • xlDiagonalDown=5 - Граница, работающая от верхнего левого угла до более низкой правой части каждой ячейки в диапазоне.
    • xlDiagonalUp = 6 - Граница, работающая от более низкого левого угла до верхнего правого угла каждой ячейки в диапазоне.
    • xlEdgeBottom = 9 - Граница внизу диапазона.
    • xlEdgeLeft = 7 - Граница на левом краю диапазона.
    • xlEdgeRight = 10 - Граница на правом краю диапазона.
    • xlEdgeTop = 8 - Граница в верхней части диапазона.
    • xlInsideHorizontal = 12 - Горизонтальные границы для всех ячеек в диапазоне кроме границ за пределами диапазона.
    • xlInsideVertical = 11 - Вертикальные границы для всех ячеек в диапазоне кроме границ за пределами диапазона.
     

    Метод

    Описание

    Application Когда используется без объектного спецификатора, это свойство возвращает объект Application, который представляет приложение Microsoft Excel. Когда используется с объектным спецификатором, это свойство возвращает объект Application, который представляет создателя указанного объекта (Вы можете использовать это свойство с объектом OLE Automation, чтобы возвратить приложение того объекта). Только для чтения
    Color
    Возвращает основной цвет объекта, как показано в таблице в разделе комментариев.
    Используйте функцию RGB, чтобы создать номер цвета.

    объект.Color

    Комментарии:

    Объект

    Цвет
    Border
     Цвет границы
    Borders
     Цвет всех четырех границ диапазона. Если они не являются всеми одинаковыми цвет, Цвет возвращается 0 (нуль).
    Font
     Цвет шрифта
    Interior
     Ячейка, оттеняющая цвет или рисунок, возражает цвету заливки
    Tab
     Цвет позиции табуляции

     Пример:

    Этот пример выбирает цвет меток на оси значения в диаграмме Chart1.

    Charts("Chart1").Axes(xlValue).TickLabels.Font.Color =  _
                                                                                         RGB(0, 255, 0)

     

    ColorIndex

    Устанавливает значение для  цвета границы

    объект. ColorIndex

    Комментарии

    Цвет указан как индексное значение в текущей цветовой палитре, или как один из следующих константы XlColorIndex:

    ·       xlColorIndexAutomatic =-4105 – автоматические цвета

    ·       xlColorIndexNone = -4142 – нет цветов

     

    Пример

    Этот пример выбирает цвет главных сеток для оси значения в Chart1.

    With Charts("Chart1").Axes(xlValue)  

      If .HasMajorGridlines Then 

           .MajorGridlines.Border.ColorIndex = 5 

      'изменить цвет границ объекта на синий

    End If

    End With
    LineStyle

    Возвращения  тип линии для границы.

    объект. LineStyle

    Возможные типы:

    xlGray25, xlGray50, xlGray75, xlAutomatic или

    XlLineStyle :
    • xlContinuous = 1 - Непрерывная строка.
    • xlDash = -4115 - Пунктирная линия.
    • xlDashDot = 4 -Чередование черточек и точек.
    • xlDashDotDot = 5 - Черточка следовала двумя точками.
    • xlDot = -4118 - Пунктир.
    • xlDouble = -4119 -Двойная строка.
    • xlLineStyleNone = -4142 -Никакая строка.
    • xlSlantDashDot = 13 -Наклонные черточки

    Комментарии:

    xlDouble и xlSlantDashDot не применяются к диаграммам.

    Пример:

    Этот пример помещает границу вокруг области диаграммы и графической области Chart1

    With Charts("Chart1")

        .ChartArea.Border.LineStyle = xlDashDot

        With .PlotArea.Border

            .LineStyle = xlDashDotDot

            .Weight = xlThick

        End With

    End With
    Parent Возвращает родительский объект для указанного объекта. Только для чтения.
    ThemeColor

    Возвращает  цвет темы в прикладной цветовой схеме, которая связана с указанным объектом.

    Добавлена в версии: Excel 2007

    объект.ThemeColor
    TintAndShade
    Устанавливает затемнение объекта.
    Добавлена в версии: Excel 2007
    объект. TintAndShade

    Комментарии:

    Вы можете ввести число от-1 (самый темный) к 1 (самый светлый) для свойства TintAndShade. Нуль (0) нейтрален.

    Установка значения меньше чем-1 или больше чем 1 приведет к ошибке " The specified value is out of range" (указанное значение вне диапазона).
    Weight

    Возвращает значение XlBorderWeight  , которое представляет вес (толщину) границы.

    объект. Weight

    • xlHairline = 1 - Линия наименьшей толщины (самая тонкая граница).
    • xlMedium = -4138 – Средняя толщина линии.
    • xlThick = 4 – Толстая линия (самая широкая граница).
    • xlThin = 2 – Тонкая линия.

    Пример:

    Этот пример устанавливает вес границы для овала один на Sheet1.

    Worksheets("Sheet1").Ovals(1).Border.Weight = xlMedium

    Категория: Общие материалы | Добавил: Админ (27.07.2009)
    Просмотров: 9381 | Комментарии: 1
    Всего комментариев: 1
    1 Pradeep  
    0
    Check that off the list of things I was coefusnd about.

    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Форма входа

    Новое в Спр.VBА
    Внимание: Если вы не нашли необходимую Вам информацию
    Вы можете оставить запрос на дополнение Справочника VBA в ФОРУМЕ
    Обновления в Справочнике VBA
    [27.08.2009] - Choose
    [27.08.2009] - Switch
    [27.08.2009] - IIF
    [27.08.2009] - If...Then...Else
    [24.08.2009] - MultiPage

    Поиск

    Наш опрос
    Оцените мой сайт
    Всего ответов: 25

    Copyright MyCorp © 2024 Яндекс цитирования Rambler's Top100   Каталог сайтов Рейтинг@Mail.ru Проверка ТИЦ