I´m trying to create a code in vba excel to detect what´s inside the work flow objects - 3D as the ones shown in the following picture:

The pictures are always the same. I have been able to find and select the sentence inside the cell. But I need it to search for all the work flow objects in different visio.

This is where I got to: Dim DiagramServices As Integer DiagramServices = ActiveDocument.DiagramServicesEnabled ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150

    Dim vsoCharacters1 As Visio.Characters
    Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(228).Characters
    Debug.Print vsoCharacters1

I need the code to first find all the work flow objects in different pages in visio and then obtain the sentence within (vsoCharacters1)