Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
For Each s In ActivePage.Layers("circuits").Shapes Next s
For Each s In ActivePage.Layers("circuits").Shapes.All s.Outline.SetNoOutline Next s