Задать вопрос
@reaget
visual-basic

Corel Draw VBA как задать сверхтонкий контур (абрис)?

Здравствуйте!
Мне нужно при помощи VBA задать кривым сверхтонкий контур (абрис). Как это можно сделать для целой группы сразу?

Этот код не работает:
ActivePage.Layers("curves").Shapes.All.CreateSelection
        ActiveSelection.Fill.ApplyNoFill
        ActiveSelection.Outline.Color = CreateRGBColor(255, 0, 0)
        ActiveSelection.Style.StringAssign "{""outline"":{""width"":""762""}}"

Здесь ругается на то, что StringAssign нельзя применить к группе "ActiveSelection"
  • Вопрос задан
  • 662 просмотра
Комментировать
Подписаться 1 Средний Комментировать
Решения вопроса 1
@reaget Автор вопроса
Решение было таким:
Объединяем все кривые в одну, применяем стиль "сверхтонкий" абрис (при помощи 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
Ответ написан
Комментировать
Комментировать
Пригласить эксперта
Ответы на вопрос 1
idShura
@idShura 
ActivePage.Layers("curves").Shapes.All.CreateSelection
     ActiveSelection.Fill.ApplyNoFill
     ActiveSelection.Outline.SetProperties Color:=CreateRGBColor(255, 0, 0)
     ActiveSelection.Outline.Width = 0.003 ' Тут указываешь нужный размер
Ответ написан
1 комментарий
1 комментарий
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Вакансии с Хабр Карьеры
Преподаватель по олимпиадному программированию
CODDY • Москва
от 20 000 до 40 000 ₽
Visual / Product designer (уровень Middle)
Uprising Agency
от 135 000 до 150 000 ₽
Middle C# developer
ЮГПА • Ростов-на-Дону
от 130 000 до 170 000 ₽
Ещё вакансии
Заказы с Хабр Фриланса
Анимация логотипа
24 апр. 2024, в 00:08
20000 руб./за проект
Разработка дизайна раздела «Статьи» на сайте «Мир отходов»
23 апр. 2024, в 23:01
10000 руб./за проект
Дизайн личного кабинета (клиентская часть)
23 апр. 2024, в 22:37
500 руб./в час
Ещё заказы