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

glugoff

Участник
Топикстартер
Сообщения
611
Реакции
93
исправьте

ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection

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

glugoff

Участник
Топикстартер
Сообщения
611
Реакции
93

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 650
Реакции
10 095
Тьфу, и вправду
Но ведь у меня то работает и так?
 

andrejK

R.I.P.
Сообщения
10 304
Реакции
5 214

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

двоешник! :4)

 

glugoff

Участник
Топикстартер
Сообщения
611
Реакции
93
А, не. Там сложнее. Он записывает такую строчку: ActiveDocument.CreateShapeRangeFromArray(ActiveDocument.MasterPage.GuidesLayer.Shapes(2), ActiveDocument.MasterPage.GuidesLayer.Shapes(3), ActiveDocument.MasterPage.GuidesLayer.Shapes(1)).Delete

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

Самый рабочий вариант с ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 650
Реакции
10 095
Еще один момент в процессе выяснил, кстати. Желательно менять размер страницы таки после того, как все объекты на ней выделены
Код:
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

Участник
Топикстартер
Сообщения
611
Реакции
93

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 650
Реакции
10 095
  • Спасибо
Реакции: glugoff

glugoff

Участник
Топикстартер
Сообщения
611
Реакции
93

titrex

Участник
Сообщения
75
Реакции
33
буду краток:
Sub delShapes()
ActiveDocument.MasterPage.GuidesLayer.Shapes.All.Delete
End Sub
удаляет 99% направляющих
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 650
Реакции
10 095
Оно то, конечно, коротко и ясно, здорово и вечно, но если вы внимательно прочли топик, то, вопреки заголовку, задачи удаления всех направляющих как раз и не стояло.