Перекрытие рядов диаграммы без Activate диаграммы

Старая форма входа

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

Перекрытие рядов диаграммы без Activate диаграммы (Макросы/Sub)

Sancho

Дата: Среда, 12.10.2022, 10:45 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

Всемм привет!
Подскажите пожалуйста как записать код перекрытия рядов диаграммы без активации самой диаграммы.
[vba]

Код

Sub dddd()
SH1.ChartObjects("Диаграмма 1").Chart.ChartType = xlColumnClustered
SH1.ChartObjects("Диаграмма 1").ChartGroups(1).Overlap = 100
End Sub

[/vba]
Изменить стиль диаграммы без её активации возможно, а вот для перекрытия рядов никак не могу найти правильное решение. Работает пока только так
[vba]

Код

Sub dddd_1()
SH1.ChartObjects("Диаграмма 1").Chart.ChartType = xlColumnClustered
SH1.ChartObjects("Диаграмма 1").Activate
ActiveChart.ChartGroups(1).Overlap = 100
End Sub

[/vba]

К сообщению приложен файл: Test1.xlsm (21.7 Kb)

Ответить

nilem

Дата: Четверг, 13.10.2022, 09:25 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

а так?
[vba]

Код

Sub dddd()
With SH1.ChartObjects("Диаграмма 1").Chart
.ChartType = xlColumnClustered
.ChartGroups(1).Overlap = 100
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Sancho

Дата: Пятница, 14.10.2022, 13:46 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

nilem, ХМ, Странно, так я тоже делал, но не работало. Ничего не понимаю... тем более, что в свойствах Chart нет этого параметра Overlap. В справке Microsoft также без Chart[vba]

Код

Charts("Chart1").ChartGroups(1).Overlap = -50

[/vba] может у меня глюкнуло что-то
Спасибо!

Ответить

Перекрытие рядов диаграммы без Activate диаграммы (Макросы/Sub)

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