[CDR 2017-2021] инструмент "ПОИСК": найти пунктирные кривые

[Alek32]

СПАСИБО!!!
С пунктирными линиями справляется на отлично!
А со шрихпунктиными не работает . Точнее если If s.Outline.Style.Index = 0 то меняет и сплошные и штрихпунктирные

а если добавить условие на кол-во точек?
If s.Outline.Style.DashCount > 1 т.е. отсеять сплошные

 

[Alek32]

Sub Test10()
  Dim s As Shape
  For Each s In ActivePage.Shapes
    If s.Outline.Type = cdrOutline Then
      If s.Outline.Style.Index <> 0 And s.Outline.Style.DashCount = 1 Then
        s.Outline.Style = OutlineStyles(0)
        s.Outline.Color = CreateCMYKColor(100, 0, 100, 0)
      End If
      If s.Outline.Style.Index = 0 And s.Outline.Style.DashCount > 1 Then
        s.Outline.Style = OutlineStyles(0)
        s.Outline.Color = CreateCMYKColor(0, 89, 100, 0)
      End If
    End If
  Next s
End Sub

 

[trimers]

Sub Test10()
  Dim s As Shape
  For Each s In ActivePage.Shapes
    If s.Outline.Type = cdrOutline Then
      If s.Outline.Style.Index <> 0 And s.Outline.Style.DashCount = 1 Then
        s.Outline.Style = OutlineStyles(0)
        s.Outline.Color = CreateCMYKColor(100, 0, 100, 0)
      End If
      If s.Outline.Style.Index = 0 And s.Outline.Style.DashCount > 1 Then
        s.Outline.Style = OutlineStyles(0)
        s.Outline.Color = CreateCMYKColor(0, 89, 100, 0)
      End If
    End If
  Next s
End Sub

Спасибо!!! То что нужно!!!