[CDR 2022] Weld artistic text

mnemonix

ॐ मणि पद्मे हूँ
Топикстартер
Сообщения
585
Реакции
179
Всем привет! Задал конструкцию:

ActiveSelection.BreakApart
ActivePage.Shapes.All.AddToSelection
ActiveSelection.ConvertToCurves
ActiveSelection.Weld

Затыкается на weld. Где-то я туплю...
Подскажите, плиз.
 

lev

Модератор
20 лет на форуме
Сообщения
2 152
Реакции
2 075
Код:
Set s = ActiveSelection
Set s = s.Weld(s)
 
  • Спасибо
Реакции: mnemonix

mnemonix

ॐ मणि पद्मे हूँ
Топикстартер
Сообщения
585
Реакции
179
Заработало!
 

DukereD

макрософил
Сообщения
482
Реакции
116
если текст слить то не нужно его разламывать и даже переводить в кривые . достаточно просто WELD и все. все символы сольются
 
  • Спасибо
Реакции: mnemonix

mnemonix

ॐ मणि पद्मे हूँ
Топикстартер
Сообщения
585
Реакции
179
Да и с закривлённым тоже работает!
 

dimastyj

Участник
Сообщения
27
Реакции
0
А почему потом текст не редактируется?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 361
Реакции
10 886
Вы это у кого сейчас спросили, а главное, зачем?
 

dimastyj

Участник
Сообщения
27
Реакции
0
Наверное не так понял, я думал это выделяешь несколько текстов и он в один их группирует
 

Акулыч

Участник
Сообщения
34
Реакции
10
Почему нет - TextRange.Combine, вроде бы, сливает вместе два текста, оставляя их редактируемыми. Если я не ошибаюсь, конечно. Помню, что по Ctrl-L точно можно текст соединить с другим.
 
  • Огонь
Реакции: DukereD