Уважаемые спецы, подскажите пжалста что в этом макросе не так,
я применяю его для подготовки группы фигур к плоттерной резке.
Глюк в следующем:
Когда макрос расположит группу объектов на листе маркеры выделения не квадратные, а круглые. И при попытке выделить её прога кричит благим матом и закрывает файл. Но, правда он впоследствии, открывается без проблем и так до следующей попытки выделить эту группу.
Вот макрос собственно:
Sub Ugol_90()
'
' Recorded 01.06.2006
'
' Description:
'
'
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.RotateEx 270#, 0#, 0#
OrigSelection.ApplyNoFill
OrigSelection.SetOutlineProperties 0.0001
Dim s1 As Shape
Set s1 = OrigSelection.Group
OrigSelection.Group.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter, cdrTextAlignBoundingBox
End Sub
Другие макросы работают безперебойно.
/Corel X3, XP SP2+update/AVP с разрешением на выполнение макросов.
Смеяться не нада я ещё чайник в VBA.
я применяю его для подготовки группы фигур к плоттерной резке.
Глюк в следующем:
Когда макрос расположит группу объектов на листе маркеры выделения не квадратные, а круглые. И при попытке выделить её прога кричит благим матом и закрывает файл. Но, правда он впоследствии, открывается без проблем и так до следующей попытки выделить эту группу.
Вот макрос собственно:
Sub Ugol_90()
'
' Recorded 01.06.2006
'
' Description:
'
'
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.RotateEx 270#, 0#, 0#
OrigSelection.ApplyNoFill
OrigSelection.SetOutlineProperties 0.0001
Dim s1 As Shape
Set s1 = OrigSelection.Group
OrigSelection.Group.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter, cdrTextAlignBoundingBox
End Sub
Другие макросы работают безперебойно.
/Corel X3, XP SP2+update/AVP с разрешением на выполнение макросов.
Смеяться не нада я ещё чайник в VBA.