Как в макросе удалить направляющие линии??

Electronic_Arts / 25.03.2014, 01:59

Форум:

Макросы и скрипты

Версия программы:

16.4.0.1280 (sp4)

Добрый день..
Подскажите как убрать направляющие линии через макрос??

Создаются они так
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(x, у, угол)

а вот как очистить документ от этих линий???

Electronic_Arts / 25.03.2014, 03:44

Пока проблему решил так
Dim i As Integer, alc As Integer
alc = ActiveDocument.MasterPage.Shapes.Count
For i = 1 To alc
If alc <> 0 Then
ActiveDocument.CreateShapeRangeFromArray(ActiveDocument.MasterPage.Shapes(1)).Delete
End If
Next i

Если что то сделал не так то буду рад если укажите где допустил ошибку....но все же код пашет...

Sancho / 25.03.2014, 03:47

А зачем этот макрос вообще, когда можно и так: выделяешь любую направляющую > Ctrl+A > Del :)

Electronic_Arts / 25.03.2014, 03:53

Суть в том что этот код я дописал к другому коду collectPages (собирает все страницы на одну, в длинный столбик)
известный скрипт для corel-а - проблема у этого скрипта заключался в том что если на странице существовали направляющие линии то она вела себя не адекватно - сейчас когда я уже доработал код - она работает без глюков на Corel X6...

Sancho / 25.03.2014, 04:03

ActiveDocument.MasterPage.GuidesLayer.Shapes.All.Delete

Electronic_Arts / 25.03.2014, 04:04

Вау! спасибо!