- Сообщения
- 490
- Реакции
- 3
Оч. нужен еще один макрос. Пытался что-то состряпать на основе предыдущего (они оч. похожи) не получилось((
Выделяем контур
1. Копирование бъекта (квадрат-круг)
2. Увеличение копии по X и Y на 5 мм.
3. Задание ему черной заливки.
3. Выделение всего что внутри
4. Перевод в кривые
5. Удаление объектов не имеющих обводки и заливки (это вообще не понял как реализовать. А без этого не работает п. 6)
6. Инверсия цвета (того что внутри. Увеличенный объект остается черным).
Вот что наковырял сам.
Естественно у увеличенного объекта не получается заливки.
Переводит таки в кривые. И выдает ошибку со строкой инверсии (хотя и невидимых объектов нет) .
Помгите плз.
Выделяем контур
1. Копирование бъекта (квадрат-круг)
2. Увеличение копии по X и Y на 5 мм.
3. Задание ему черной заливки.
3. Выделение всего что внутри
4. Перевод в кривые
5. Удаление объектов не имеющих обводки и заливки (это вообще не понял как реализовать. А без этого не работает п. 6)
6. Инверсия цвета (того что внутри. Увеличенный объект остается черным).
Вот что наковырял сам.
Код:
Sub res() Dim Contur As Shape, Dup As Shape
If Documents.Count = 0 Then Exit Sub
If ActiveSelection.Shapes.Count <> 1 Then Exit Sub
ActiveDocument.ReferencePoint = cdrCenter
ActiveDocument.Unit = cdrMillimeter
Set Contur = ActiveShape
Set Dup = Contur.Duplicate
Dup.SetSize Contur.SizeWidth + 5, Contur.SizeHeight + 5
3. Задание ему черной заливки.
ActivePage.SelectShapesFromRectangle Contur.LeftX, Contur.BottomY, Contur.RightX, Contur.TopY, False
ActivePage.Shapes.All.ConvertToCurves
5. Удаление объектов не имеющих обводки и заливки (это вообще не понял как реализовать. А без этого не работает п. 6 и в принципе инверсия)
OrigSelection.ApplyEffectInvert (не работает-()
End Sub
Естественно у увеличенного объекта не получается заливки.
Переводит таки в кривые. И выдает ошибку со строкой инверсии (хотя и невидимых объектов нет) .
Помгите плз.