Corel Draw VBA как задать сверхтонкий контур (абрис)?
ActivePage.Layers("curves").Shapes.All.CreateSelection
     ActiveSelection.Fill.ApplyNoFill
     ActiveSelection.Outline.SetProperties Color:=CreateRGBColor(255, 0, 0)
     ActiveSelection.Outline.Width = 0.003 ' Тут указываешь нужный размер
Решение было таким:Объединяем все кривые в одну, применяем стиль "сверхтонкий" абрис (при помощи Style) и разгруппировываем обратноIf ActivePage.Layers("curves").Shapes.Count <> 0 Then
        ActivePage.Layers("curves").Shapes.All.CreateSelection
        ActiveSelection.Fill.ApplyNoFill
        Dim s2 As Shape
        Set s2 = ActiveSelection.Combine
        s2.Style.StringAssign "{""outline"":{""width"":""762""}}"
        ActivePage.Layers("curves").Shapes.All.CreateSelection
        ActiveSelection.Outline.Color = CreateRGBColor(255, 0, 0)
        s2.BreakApartEx
    End If