Переместить фигуру в другой слой

Question

Я попытался записать макрос для перемещения выбранной фигуры из одного слоя Visio в другой. Записанный макрос работает только с исходной формой.

На этом сайте я нашел пример кода, используемого для назначения выбранной фигуры слою

Dim myLayer As Visio.Layer
Set myLayer = Application.ActiveWindow.Page.Layers.Add("Layer1")
myLayer.Add Application.ActiveWindow.Selection(1), 1

Но я также хочу удалить выбранную фигуру из существующего слоя под названием Layer0

Dim myLayer As Visio.Layer
Set myLayer = Application.ActiveWindow.Page.Layers.Remove("Layer0")
myLayer.Add Application.ActiveWindow.Selection(1), 1

Я прыгал, что я мог заменить.Добавить.Удалить, но это не работает.

Answer 1

Я получил помощь То, о чем я просил, было очень просто, я поместил параметр.remove в неправильную строку. исправленная версия теперь работает

' to add selected ojbect to Layer1
Dim myLayer As Visio.Layer
Set myLayer = Application.ActiveWindow.Page.Layers.Add("Layer1")
myLayer.Add Application.ActiveWindow.Selection(1), 1


' to remvoe selectec ojbected from Layer0
Dim RemoveLayer As Visio.Layer
Set RemoveLayer = Application.ActiveWindow.Page.Layers.Add("Layer0")
RemoveLayer.remove Application.ActiveWindow.Selection(1), 1