[CDR 2017-2021] Макрос удаляющий все направляющие

  • Автор темы Автор темы glugoff
  • Дата начала Дата начала
dastin сказал(а):
исправьте

ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection
Нажмите, чтобы раскрыть...

Спасибо! Заработала-а! Направляющие остаются, но не участвуют в изменении размеров. В итоге получается нужный правильных размеров макет, покрытый направляющими.
 
Тьфу, и вправду
Но ведь у меня то работает и так?
 

Не по теме:
у тя специальный корел. синий.

двоешник! :4)
 
А, не. Там сложнее. Он записывает такую строчку: ActiveDocument.CreateShapeRangeFromArray(ActiveDocument.MasterPage.GuidesLayer.Shapes(2), ActiveDocument.MasterPage.GuidesLayer.Shapes(3), ActiveDocument.MasterPage.GuidesLayer.Shapes(1)).Delete

Т.е. выделяет конкретные направляющие. Если их кол- во не совпадает, либо игнорирует, либо ругается.

Самый рабочий вариант с ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection
 
Еще один момент в процессе выяснил, кстати. Желательно менять размер страницы таки после того, как все объекты на ней выделены
Код: 
Sub vizsize()
' Recorded 10.04.2018

ActiveDocument.ReferencePoint = cdrCenter
ActivePage.Shapes.All.CreateSelection
ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection
ActiveSelection.SetSize 3.661417, 2.086614
Dim s1 As Shape
Set s1 = ActiveSelection.Group
With ActiveDocument.MasterPage
.SetSize 3.661417, 2.086614
.Orientation = 1
.PrintExportBackground = True
.Bleed = 0#
.Background = 0
End With
s1.AlignAndDistribute 3, 3, 2, 0, False, 2
End Sub
 
  • Спасибо
Реакции: glugoff
буду краток:
Sub delShapes()
ActiveDocument.MasterPage.GuidesLayer.Shapes.All.Delete
End Sub
удаляет 99% направляющих
 
Оно то, конечно, коротко и ясно, здорово и вечно, но если вы внимательно прочли топик, то, вопреки заголовку, задачи удаления всех направляющих как раз и не стояло.
 
Для ответа нужно войти/зарегистрироваться
Верх Низ