Помогите создать несложный макрос

Версия программы: 
14.0.0.701 (sp2)

Дано: произвольный прямоугольник со сторонами X и Y.
Задача: создать внутри него рамку (обычно красного цвета). Отступ рамки от края Y*0,025 мм. Ширина рамки X*0,025 мм

blizzz, у тебя так много Separate в коде? ActiveSelection.Separate это и есть Shape.Separate. Разбери код по каждой строчке. Без чёткого понимания что есть что, что то пытаться изменить практически бессмысленно. Тыкаешь курсор в команду,наживаешь F1, читаешь. Если уже после прочтения что то конкретно непонятно, спрашивай.

А если попробовать не возиться с контурами, а создать еще два залитых прямоугольника меньшего размера на нужном расстоянии и вычесть один из другого? Получится та же рамка

shark, ну если задача исключительно для прямоугольника без трансформаций, тогда можно, и даже один но с абрисом нужной толщины, который потом перевести в объект :)

Санчо, можешь посоветовать толковый ресурс по изучению VBA?

blizzz, именно по VBA не знаю, достаточно прочитать любую книгу по его основам.
А конкретно по объектной модели, можно многое найти здесь.

Страницы