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

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 

Я прыгал, что я могу заменить .Add на .Remove, но это не работает.

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