List object names from desktop area

jaksalpy
1 month ago

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 ?

Parents
No Data
Reply
  • 0 1 month ago

    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 s
    End Sub

Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.