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