I'm wondering. Are there any Macros that hide objects
Hello. I tried. Macro works error on Corel X7. Can someone help me fix the macro to run on Corel x7 not
Hello my friendtry this
The link you sent. There are 2 scripts
1. Show all hidden objects.
Sub UnHideLayers()For Each lay In ActivePage.LayersIf lay.Name = ActiveLayer.Name Thenlay.Visible = TrueElselay.Visible = TrueEnd IfNext layEnd Sub
==> It works very well
2. I need a script that hides the selected objects. I don't want to hide by "layer"
Can you help me. Thanks
try following code
Sub UnHideLayers()Dim sr As ShapeRangeSet sr = ActiveSelectionRangeActiveDocument.BeginCommandGroup (hide_selected)If sr.Count < 1 ThenMsgBox ("Select some shape/s and run macro again!")ElseFor Each sh In sr sh.Visible = FalseNextEnd IfActiveDocument.EndCommandGroupEnd Sub