SanScript, Visual Basic, and VBScript functions implementing the “Highlight in Application” feature as in QTP Object Repository Manager.

All related posts: Reference Page – GP/QTP Automation

VBA/SanScript function - put in your Excel VBA macro file

Note. Ignores sanScript errors

Public Function HighlightControl()
    Dim intRC As Integer
    Dim intCount, Iter As Integer
    Dim sCode, sErrMsg As String
    Dim sControlName As String
    sControlName = Workbooks.Item(1).Sheets.Item(1).Cells(2, 1)
    Call GPApp.Activate
    'Show/Hide
    intCount = 3
    For Iter = 1 To intCount
        sCode = "hide field " & sControlName & ";"
        intRC = GPApp.ExecuteSanScript(sCode, sErrMsg)
        Sleep 300
        sCode = "show field " & sControlName & ";"
        intRC = GPApp.ExecuteSanScript(sCode, sErrMsg)
        Sleep 300
    Next   
End Function

VBScript function - put as Dexterity Interface Class method

Note. If you use it as an embedded function don’t forget to call COM initialization procedures first.

 Public Function HighlightControl(ByVal sName)
  Dim boolRC, intRC
  Dim objUsedRange'
     Set objUsedRange = XLBook.Worksheets(1).UsedRange()
        objUsedRange.Cells(2,1) = " " & sName 'space char is apostrophe workaround
  XLHandle.Run("HighlightControl")
 End Function

A function to highlight all window controls one by one

Note.

Uses XML structure created by GUI Capture script

Uses Service Functions – XML (QTP, VBScript)

Public Function GP_HighlightContext(ByRef objXMLContext)
   Dim objColl, objColl2, objControl, objXMLDesc
   Dim objProperty, sName, sDexParent, sDexName, sFullName
   Dim Iter, Jter
   If (objXMLContext is Nothing) Then Exit Function End If
   sDexParent = ChildAttributeValueByName(objXMLContext, "dexhost")
   Set objColl = objXMLContext.ChildElementsByPath("./Object")
   For Iter = 1 To objColl.Count
    Set objControl = objColl.Item(Iter)
       Set objXMLDesc = ChildElementByName(objControl, "desc")
    Set objColl2 = objXMLDesc.ChildElementsByPath("./property")
    For Jter = 1 To objColl2.Count
     Set objProperty = objColl2.Item(Jter)
     sName = ChildAttributeValueByName(objProperty, "name")
     If LCase(sName) = "dexname" Then
      sDexName = ChildAttributeValueByName(objProperty, "value")
      sFullName = "'" & sDexName & "' of "  & sDexParent
      GPHandle.HighlightControl(sFullName)
      Exit For
     End If
    Next
   Next
End Function