Добрый день,
Нужно перевести выделенные элементы в определенный слой по сочетанию клавиш.
Создал в макро рекордере макрос, присвоил ему на выполнение сочетание клавиш, но не могу понять логику визио как сделать так, чтобы он выполнял его не к конкретному элементу, а к выделенному?
Пример макроса:
Код:
Sub Macro1()
' Сочетание клавиш: Ctrl+Shift+W
'
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Слой")
Application.ActiveWindow.Page.Shapes.ItemFromID(237).CellsSRC(visSectionObject, visRowLayerMem, visLayerMember).FormulaForceU = """2"""
Application.EndUndoScope UndoScopeID1, True
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub