[CDR 2017-2021] Найти штрих-код и закривить

[elshad66]

LEV.. Вот здесь второй макрос вроде работает но копирует в экзель может его как то отредактировать?

Объединить 2 макроса в 1 - VBA - Киберфорум

Объединить 2 макроса в 1 VBA Решение и ответ на вопрос 1660739

www.cyberforum.ru

 

[elshad66]

сорри ошибся темой

 

[dastin]

но:
1. Работает только с выделенным объектом (что допустимо)
2. Не удаляет белую подложку-прямоугольник (удалить можно вручную, но это лишние телодвижения)

1. пустите по кругу - странице или документу
2. поменяйте это в коде

    For Each s In pastesel
      If s.ZOrder = pastesel.Count Then s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0): GoTo here
      s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
      If s.Type = cdrTextShape Then s.ConvertToCurves
here:
      Next s

на это

    For Each s In pastesel
      If s.ZOrder = pastesel.Count Then s.Delete: GoTo here
      s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
      If s.Type = cdrTextShape Then s.ConvertToCurves
here:
      Next s

прямоугольник на заднем плане будет удален

 

[mnemonix]

прямоугольник на заднем плане будет удален

Спасибо, прекрасно заработало.