Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как настроить ширину столбцов в диаграмме?
 
#1
05.10.2015 07:47:12
Уважаемые, форумчане!
Как настроить ширину столбцов в диаграмме? мне нужно чтоб ширина во всех графиках была одинаковая! но метод подбора не подойдет, т.к. графиков много! Пример во вложении
Изменено: elena1004 - 05.10.2015 11:53:50
 
 
 
#2
05.10.2015 08:35:18
рекордер сказал так:
Код
    ActiveSheet.DrawingObjects.ShapeRange.Height = 425
может это и не правильно, визуально вреде бы так
 
 
 
#3
05.10.2015 10:13:40
Catboyun, я не поняла!

кнопка цитирования не для ответа [МОДЕРАТОР]
 
 
 
#4
05.10.2015 10:49:48
elena1004, сделайте в примере как есть пару диаграмм и пару диаграмм как надо. (на данный момент, я не понял, что не так)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
05.10.2015 11:54:49
Цитата
JayBhagavan написал:
elena1004, сделайте в примере как есть пару диаграмм и пару диаграмм как надо. (на данный момент, я не понял, что не так)
Поменяда прикрепленный файл в первом посте! нужно просто чтоб ширина столбцов в диаграмме автоматически была одной и той же
 
 
 
#6
05.10.2015 12:03:20
как использовать макросы читайте в приёмах

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
05.10.2015 12:20:11
Catboyun, так подстраивается ширина диаграмм, но ширину рядов в них не настроить так. Свойство Height или Width у объекта Point read-only, и настраивается в пропорции от размера диаграммы и зазора между рядами.
Вот так визуально выровняет толщину полосок:
Код
Sub ResizeBars()
Const BAR_SCALE As Double = 40
Dim s, c, p
For Each c In ActiveSheet.ChartObjects
    With c.Chart
        .PlotArea.Height = .SeriesCollection(1).Points.Count * BAR_SCALE
        '.PlotArea.Top = 50
        .ChartGroups(1).GapWidth = 150
    End With
Next c
End Sub
F1 творит чудеса
 
 
 
Страницы: 1
Читают тему
Наверх