нет, нужно чтобы именно прятался объект, подобно слою. То есть, недавно просто оказался в ситуации, когда залочивание объекта не помогало. Сложно объяснить, что именно я делал и как, но я бывалый пользователь Корела, и просто так воздух не стал бы сотрясать. Выкрутился из своей ситуации солдатской смекалкой в ущерб времени и продуктивности.zemnoy сказал(а):
а ткнуть на нижележащий объект получится сквозь этот?
да, уже опробовано, гыгы попишу макросик как только лень прогонюdenisgrim сказал(а):
Вот что значит - тяпницо. Значит так. Придя домой и опробовав еще раз, могу сказать, следующее: если есть два объекта одинакового размера один над другим, и верхний объект сделать прозрачным и заблокировать, то можно щелкать до потери сознания - до нижнего не добраться, точнее добраться можно. но не так как хотелось бы...denisgrim сказал(а):
вот я про это же! только верхний объект у меня ещё больше чем нижний. Картинку показывать бессмысленно, ибо там чёрт ногу сломит - непонятно будет короче. Мне пришлось сначала выравнивать несколько паверклипов, состыкованных рядом, и потом в них засовывать состыкованные текстуры. Сначала я всё выровнял, а потом отодвигал текстуры, чтобы можно было ткнуть в контейнер. А потом снова возвращал текстуры в исходную позицию. Неприятно в общем.qsedftghk сказал(а):
.
(простите, вы девушка/женщина?) 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
shh.OrderBackOf hhide
hhide.Name = "Hide shape"
shh.AddToPowerClip hhide
hhide.OrderFrontOf sh
sh.Delete
hhide.RemoveFromSelection
End Sub