Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Определение координат границы столбца гистограммы - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Определение координат границы столбца гистограммы
DJBeast Дата: Вторник, 23.01.2018, 23:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток.
У меня есть макрос, определяющий на графике - координаты вершины столбца гистограммы (в данном случае третий столбец).
Но это - касается только вертикальной гистограммы.
А на горизонтальной диаграмме - такое решение уже не подходит.

То есть вершина горизонтальной гистограммы - это крайняя правая граница столбца.
Как определить координаты этой границы - для третьего столбца на горизонтальной гистограмме?
К сообщению приложен файл: 2486597.xls (50.5 Kb)
 
Ответить
СообщениеДоброго времени суток.
У меня есть макрос, определяющий на графике - координаты вершины столбца гистограммы (в данном случае третий столбец).
Но это - касается только вертикальной гистограммы.
А на горизонтальной диаграмме - такое решение уже не подходит.

То есть вершина горизонтальной гистограммы - это крайняя правая граница столбца.
Как определить координаты этой границы - для третьего столбца на горизонтальной гистограмме?

Автор - DJBeast
Дата добавления - 23.01.2018 в 23:09
doober Дата: Среда, 24.01.2018, 01:30 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 995
Репутация: 345 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.
А так?[vba]
Код
    If ch1.ChartType = xlColumnClustered Then
        X# = ch1.ChartArea.Left + r.Left
    ElseIf ch1.ChartType = xlBarClustered Then
        X# = ch1.ChartArea.Left + r.Width
    End If
[/vba]


 
Ответить
СообщениеЗдравствуйте.
А так?[vba]
Код
    If ch1.ChartType = xlColumnClustered Then
        X# = ch1.ChartArea.Left + r.Left
    ElseIf ch1.ChartType = xlBarClustered Then
        X# = ch1.ChartArea.Left + r.Width
    End If
[/vba]

Автор - doober
Дата добавления - 24.01.2018 в 01:30
DJBeast Дата: Среда, 24.01.2018, 09:25 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
doober, теперь все стало ясно. Спасибо
 
Ответить
Сообщениеdoober, теперь все стало ясно. Спасибо

Автор - DJBeast
Дата добавления - 24.01.2018 в 09:25
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!