#вопрос #корел
В кореле команда для поворота изображения, что бы назначить горячую клавишу?
для себя делал макрос - он поворачивает на 45 градусов по часовой или против. и уже на него повесил гор.клавишу... И там-же макрос - дублирует выбранный объект, смещая его на величину объекта - вверх или вниз или вправо или влево:
Sub Povorot()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.Rotate -45#
End Sub
Sub Povorot2()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.Rotate 45#
End Sub
Sub Dup_Vverx()
Dim srS, srC As ShapeRange
Set srS = ActiveSelectionRange
With srS
Set srC = .Duplicate
.Move 0#, .SizeHeight ' копируем сверху от исходного
.OrderForwardOne
End With
End Sub
Sub Dup_vniz()
Dim srS, srC As ShapeRange
Set srS = ActiveSelectionRange
With srS
Set srC = .Duplicate
.Move 0#, 0 - .SizeHeight ' копируем снизу от исходного
.OrderForwardOne
End With
End Sub
Sub Dup_Vlevo()
Dim srS, srC As ShapeRange
Set srS = ActiveSelectionRange
With srS
Set srC = .Duplicate
.Move 0 - .SizeWidth, 0# ' копируем влево от исходного
.OrderForwardOne
End With
End Sub
Sub Dup_Vpravo()
Dim srS, srC As ShapeRange
Set srS = ActiveSelectionRange
With srS
Set srC = .Duplicate
.Move .SizeWidth, 0# ' копируем вправо от исходного
.OrderForwardOne
End With
End Sub