Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Двойное кольцевое шкалирование (два кольца из сегментов‑штрихов), Макросом нарисовать круговую диаграмму, состоящую из одинаковых прямоугольных штрихов, заливка по значениям из ячеек
 
#1
05.08.2026 16:16:35
Добрый день! Макрос рисует а-ля круговую диаграмму из двух колец, состоящих из прямоугольных штрихов. Почему-то часть штрихов рисуется с меньшей высотой. Можно сделать штрихи одинаковой высоты?
Изменено: Владимир Ш. - 06.08.2026 08:46:35
 
 
 
#2
06.08.2026 04:08:16
файл-пример приложите
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
06.08.2026 09:03:43
Файл исходник с макросом.
 
 
 
#4
06.08.2026 10:38:58
Добрый день. В макросе неверный порядок отрисовки штрихов. При достаточно больших углах поворота штрихи просто выходят за границы листа и обрезаются. Нужно в блоках  With rect  ... End With параметр .Rotation = angleMidInner переместить на последнюю строку блока.
Т.е как то так  
Код
 With rect
            .Name = "InnerSegment_" & i
            .Height = barHeight
            .Width = innerBarWidth
            .Fill.ForeColor.RGB = IIf(i <= segments * valueInner, colorInnerFilled, colorEmpty)
            .Line.Visible = msoFalse
            .Top = centerY - innerRadius * Cos(Application.Radians(angleMidInner)) - (.Height / 2)
            .Left = centerX + innerRadius * Sin(Application.Radians(angleMidInner)) - (.Width / 2)
            .Rotation = angleMidInner
        End With
 
 
 
#5
06.08.2026 11:34:45
Спасибо! Почему-то с рабочего компа недоступна область с Текстом сообщения, не могу ответить, пишу с телефона. Код чуть поправили, ваш выдал ошибку.  
 
 
 
#6
06.08.2026 11:51:55
Результат
 
 
 
#7
06.08.2026 20:11:07
можно и обычным образом построить 2 шкалы штриховка только будет отличаться
познакомился с Excel
 
 
 
#8
12.08.2026 21:36:13
или еще немного дополнить шкалы стрелками
познакомился с Excel
 
 
 
Страницы: 1
Читают тему
Наверх