I tried something where we can create a button which has all actions for that text object, then press that button and then delete it. This gives the same functionality.
Function TextObjClick(tx As String)
Dim newbutton
Dim prop
Dim TextActions
Dim i
Dim ButtonActions
Set newbutton = QVDoc.ActiveSheet.CreateButton
Set prop = newbutton.getproperties
prop.Text.v = QVDoc.GetSheetObject(tx).GetText
Set ButtonActions = prop.ActionItems
Set TextActions = QVDoc.GetSheetObject("TX01").getproperties.Layout.ActionItems
Dim actionparam
Dim j
For i = 0 To TextActions.Count - 1
ButtonActions.Add
ButtonActions.Item(i).Type = TextActions.Item(i).Type
Set actionparam = ButtonActions.Item(i).Parameters
For j = 0 To TextActions.Item(i).Parameters.Count - 1
actionparam.Add
actionparam.Item(j).v = TextActions.Item(i).Parameters.Item(j).v
Next
Next
newbutton.SetProperties prop
newbutton.press
newbutton.Close
End Function
