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

Тема в разделе «CorelDRAW», создана пользователем FedorDobronravoff, 10 авг 2018.

  1. Макросом например. Насчет X7 не уверен, в X8 точно есть
     
  2. в Х7 уже это есть
    upload_2018-8-10_17-24-23.png
     
    • Одобряю Одобряю x 1
  3. Отлично! Большое спасибо!
     
  4. Выделить объекты, запустить макрос
    Код:
    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
     
  5. Факир был пьян и фокус не удался :(
    upload_2018-8-10_16-5-7.png
     
  6. Гонял под X7
    в X6 отсутствует .SpreadMethod = cdrFountainFillSpreadMethodPad :(
     
  7. Тем не менее у меня не ругнулось но и правильно не сработало
     
  8. Закомментируй On Error Resume Next :)