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

lev

Модератор
12 лет на форуме
Сообщения
1 774
Благодарности
1 609
#24
Выделить объекты, запустить макрос
Код:
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_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
22 186
Благодарности
7 806
#25
Факир был пьян и фокус не удался :(
upload_2018-8-10_16-5-7.png
 

lev

Модератор
12 лет на форуме
Сообщения
1 774
Благодарности
1 609
#26
Гонял под X7
в X6 отсутствует .SpreadMethod = cdrFountainFillSpreadMethodPad :(
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
22 186
Благодарности
7 806
#27
Тем не менее у меня не ругнулось но и правильно не сработало
 
Рейтинг@Mail.ru