Axuda do LibreOfficeDev 25.8
Comproba se un obxecto Uno de Basic soporta determinadas interfaces Uno.
Returns True, if all stated Uno interfaces are supported, otherwise False is returned.
HasUnoInterfaces( oTest, Nome-Interface-Uno 1 [, Nome-Interface-Uno 2, ...])
Bool
| Name | Type | Description | 
|---|---|---|
| oTest | Object | the Basic Uno object that you want to test. | 
| Uno-Interface-Name 1,  | String | Uno interface name(s) | 
Sub HasInterface
    Dim bHas as Boolean
    Dim oSheet as Object
    oSheet = ThisComponent.Sheets(0) 
    bHas = HasUnoInterfaces( oSheet, "com.sun.star.beans.XIntrospection" )
    Print bHas ' = True
End Sub