[CDR X5-X8] Как сделать фонтанную заливку "радуга по кругу"

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
в Х7 уже это есть
upload_2018-8-10_17-24-23.png
 
  • Спасибо
Реакции: _MBK_

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Выделить объекты, запустить макрос
Код:
Sub rff()
  On Error Resume Next
  Dim s As Shape
  ActiveDocument.BeginCommandGroup "Rainbow fountain fill"
  For Each s In ActiveSelection.Shapes
    With s.Fill.ApplyFountainFill(CreateCMYKColor(100, 0, 0, 0), CreateCMYKColor(100, 0, 0, 0))
      .Type = cdrConicalFountainFill
      .SpreadMethod = cdrFountainFillSpreadMethodPad
      .Colors.Add CreateCMYKColor(100, 0, 100, 0), 100 / 6
      .Colors.Add CreateCMYKColor(0, 0, 100, 0), 200 / 6
      .Colors.Add CreateCMYKColor(0, 100, 100, 0), 300 / 6
      .Colors.Add CreateCMYKColor(0, 100, 0, 0), 400 / 6
      .Colors.Add CreateCMYKColor(100, 100, 0, 0), 500 / 6
    End With
  Next s
  ActiveDocument.EndCommandGroup
End Sub
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Факир был пьян и фокус не удался :(
upload_2018-8-10_16-5-7.png
 

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Гонял под X7
в X6 отсутствует .SpreadMethod = cdrFountainFillSpreadMethodPad :(
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Тем не менее у меня не ругнулось но и правильно не сработало