Решение было таким:
Объединяем все кривые в одну, применяем стиль "сверхтонкий" абрис (при помощи 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