Is it possible to display object name values from desktop layer (not from the active page) ?
I am already using macro for renaming objects and moving them from all pages to desktop area.
Also using a macro to find the objects with particular value. But now I need a macro to display the object name values of each renamed objects. (All renamed object values are integer)
Can anyone help with this ?
Haven't you asked this in the past?
C# Code double x1 = corelApp.ActivePage.LeftX; double x2 = corelApp.ActivePage.RightX; double y1 = corelApp.ActivePage.TopY; double y2 = corelApp.ActivePage.BottomY; ShapeRange outPageRange = corelApp.ActivePage.Shapes.All(); ShapeRange sr = corelApp.ActivePage.SelectShapesFromRectangle(x1,y1,x2,y2,false).Shapes.All(); outPageRange.RemoveRange(sr); sr.RemoveFromSelection(); outPageRange.AddToSelection();
VBA Code
Sub NamesFromDesktopArea() Dim s As Shape, SR As ShapeRange, p As Page
Set p = ActivePage Set SR = ActiveDocument.ActivePage.SelectShapesFromRectangle(p.LeftX, p.TopY, p.RightX, p.BottomY, True).Shapes.All ActivePage.Shapes.All.CreateSelection SR.RemoveFromSelection Set SR = ActiveSelectionRange For Each s In SR Debug.Print s.Name Next sEnd Sub
No. This is my first post in this forum.
And thanks for the reply. But I am looking for VBA code.
Hi, thanks for reply.
I tried the above code. After running, all the objects in desktop area was selected. But no values showing.