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

[glugoff]

Макросы использую редко, писать словами не умею, только record - play. Большой надобности разбираться нет, задачи примитивные. Столкнулся с необходимостью удаления всех направляющих в макете. И тех что на главной странице, и тех что на остальных. Методом тыка ничего толкового не получил. Может знает кто заветную строчку (если она конечно существует? Буду очень признателен.

 

[_MBK_]

Большой надобности разбираться нет

Ну тогда вас, как минимум, придется в рамках этой темы обучать с нуля как VBA код запускать. Или мотивация таки есть?
C другой стороны, не пойму, чем вас не устраивает штатная очистка?

 

[glugoff]

Ну тогда вас, как минимум, придется в рамках этой темы обучать с нуля как VBA код запускать. Или мотивация таки есть?
C другой стороны, не пойму, чем вас не устраивает штатная очистка?
Посмотреть вложение 106475

Смотрите, у меня итоговая задача следующая. Назначаю размер страницы, выделяю все объекты, группирую, привожу их к размеру страницы и центрирую. Этот записанный макрос посажен на хоткей и работает хорошо. Однако, когда макет содержит направляющие, команда select all выделяет видимо и их, и макет схлопывается в точку. Посему и хотелось бы дописать в макрос строчку, удаляющую все направляющие как класс.
С синтаксисом разберусь, достаточно подсказать куда копать.

 

[_MBK_]

Так, может, правильнее тот макрос поправить чтоб он направляющие не выделял?
Покажите код

 

[glugoff]

Так, может, правильнее тот макрос поправить чтоб он направляющие не выделял?
Покажите код

Вот:

Sub vizsize()
' Recorded 10.04.2018
With ActiveDocument.MasterPage
.SetSize 3.661417, 2.086614
.Orientation = 1
.PrintExportBackground = True
.Bleed = 0#
.Background = 0
End With
ActiveDocument.ReferencePoint = cdrCenter
ActivePage.Shapes.All.CreateSelection
ActiveSelection.SetSize 3.661417, 2.086614
Dim s1 As Shape
Set s1 = ActiveSelection.Group
s1.AlignAndDistribute 3, 3, 2, 0, False, 2
End Sub

 

[_MBK_]

После строки

ActivePage.Shapes.All.CreateSelection

добавьте

Selection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection

и будет счастье

 

[glugoff]

После строки

ActivePage.Shapes.All.CreateSelection

добавьте

Selection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection

и будет счастье

Ругается на эту строчку, говорит: Run-time error '424' Object required

 

[_MBK_]

Ругается на эту строчку, говорит: Run-time error '424' Object required

Ругается если на странице нет ни одного guidelinesа

 

[glugoff]

Ругается если на странице нет ни одного guidelinesа

 

[_MBK_]

Странно, но у меня на X6 не ругается даже если направляющих на странице нет вообще Видимо в 2017 что то с моделью опять нахимичили
Ладно будем пошагово разбираться

 

[_MBK_]

Для начала такой вариант

Sub vizsize()
' Recorded 10.04.2018
With ActiveDocument.MasterPage
.SetSize 3.661417, 2.086614
.Orientation = 1
.PrintExportBackground = True
.Bleed = 0#
.Background = 0
End With
ActiveDocument.ReferencePoint = cdrCenter
ActivePage.Shapes.All.CreateSelection
Dim gds As ShapeRange
Set gds = Selection.Shapes.FindShapes(, cdrGuidelineShape)
If gds.Count > 0 Then gds.RemoveFromSelection
ActiveSelection.SetSize 3.661417, 2.086614
Dim s1 As Shape
Set s1 = ActiveSelection.Group
s1.AlignAndDistribute 3, 3, 2, 0, False, 2
End Sub

 

[glugoff]

Для начала такой вариант

И Х6 и 2017 ломаются на строчке : Set gds = Selection.Shapes.FindShapes(, cdrGuidelineShape)

 

[_MBK_]

И Х6

Пришлите файл X6 на котором ломаются

 

[svlasov]

Я, конечно, ничего не смыслю в кореловских макросах, но не русская ли локализация встает поперек горла в этом случае?

 

[glugoff]

Пришлите файл X6 на котором ломаются

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

Не по теме:
а не в синтаксисе ошибка?

 

[_MBK_]

но не русская ли локализация встает поперек горла в этом случае?

В этом случае, скорее, помогает, ибо у меня как раз локализованный X6

 

[_MBK_]

Смысл?

Cмысл есть определенно, поскольку на вашем файле макрос, хоть эту ошибку у меня и не выдает, но ведет себя совершенно непостижимым образом

 

[glugoff]

но ведет себя совершенно непостижимым образом

О как.. Это уже становится интересным, я думал проще будет

 

[dastin]

исправьте

Selection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection

ActiveSelection.Shapes.FindShapes(, cdrGuidelineShape).RemoveFromSelection

 

[Jeine]

я думал проще будет

А не проще ли "Редактировать" ->- "Выделить всё"->- "Направляющие"
?