Ответ: Скрипт временно прячет объект
Sub hideShape()
Dim sh As Shape, hhide As Shape, shh As Shape
Set sh = ActiveShape: Set shh = sh.Duplicate
Set hhide = ActivePage.ActiveLayer.CreateRectangle2(sh.PositionX, sh.PositionY, 0.001, 0.001)
hhide.Fill.ApplyNoFill: hhide.Outline.Width = 0...