Определение боковой границы у объемной гистограммы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Определение боковой границы у объемной гистограммы (Макросы/Sub)

DJBeast

Дата: Среда, 24.01.2018, 13:16 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте.
В последнее время написал несколько вопросов на этом форуме - по определению координат правой границы столбца линейчатой гистограммы.

У меня возник такой уточняющий вопрос.
Есть такой вид линейчатой гистограммы - "Объемная линейчатая с группировкой".
И этот вид диаграммы - видимо чем-то отличается от обычной линейчатой гистограммы. Имеющийся макрос - не может определить координаты границы (третьего столбца) - для этого вида диаграммы.
Точнее макрос может определить только Y-координату правой границы столбца, а вот его X-координату определить уже не может (выдает 0)....

Подскажите - как определить координаты правой границы у третьего столбца гистограммы "Объемной линейчатой с группировкой" ?

К сообщению приложен файл: 4112202.xls (92.0 Kb)

Ответить

doober

Дата: Среда, 24.01.2018, 15:45 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 995

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Цитата DJBeast, 24.01.2018 в 13:16, в сообщении № 1 ()

В последнее время написал несколько вопросов на этом форуме

Вы в них не разобрались что по чему.
А так?[vba]

Код

    If ch1.ChartType = xlColumnClustered Then
        X# = ch1.ChartArea.Left + r.Left
    ElseIf ch1.ChartType = xlBarClustered Or ch1.ChartType = xl3DBarClustered Then
        X# = ch1.ChartArea.Left + r.Width
    End If

[/vba]

Ответить

DJBeast

Дата: Среда, 24.01.2018, 16:41 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

doober, ах вон оно что... тип диаграммы надо было сменить....
Спасибо. Теперь все работает.

Ответить

Определение боковой границы у объемной гистограммы (Макросы/Sub)

Страница 1 из 1
1