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

[_MBK_]

Когда их 20, все разные и постоянно нужно что-то менять - замучался.

Макросом например. Насчет X7 не уверен, в X8 точно есть

 

[dastin]

в Х7 уже это есть

 

[FedorDobronravoff]

Отлично! Большое спасибо!

 

[lev]

Выделить объекты, запустить макрос

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_]

Факир был пьян и фокус не удался

 

[lev]

Гонял под X7
в X6 отсутствует .SpreadMethod = cdrFountainFillSpreadMethodPad

 

[_MBK_]

Тем не менее у меня не ругнулось но и правильно не сработало

 

[lev]

не ругнулось

Закомментируй On Error Resume Next