AuthenticRange.SetElementAttributeValue
Método: SetElementAttributeValue (strElementName as String, strAttributeName as String, strAttributeValue as String)
Descripción
Recuperar el valor del atributo especificado en strAttributeName para el elemento identificado por strElementName. Si el atributo es compatible pero no tiene asignado ningún valor, se devuelve una cadena vacía. Para averiguar el nombre de los atributos compatibles con un elemento utilice GetElementAttributeNames o HasElementAttribute.
Errores
2001 | El objeto de intervalo o su objeto relacionado ya no es válido. | |
2005 | El nombre de elemento indicado no es válido. El nombre de atributo indicado no es válido. Se indicó un valor de atributo no válido. |
Ejemplos
' --------------------------------------------
' VBScript
' Obtener y establecer atributos del elemento
' --------------------------------------------
Dim objRange
Set objRange = objPlugin.AuthenticView.Selection
' primero averiguamos todos los elementos situados al principio del intervalo
Dim arrElements
objRange.GetElementHierarchy arrElements
If IsArray(arrElements) Then
If UBound(arrElements) >= 0 Then
' usamos el elemento de nivel superior y averiguamos sus atributos válidos
Dim arrAttrs()
objRange.GetElementAttributeNames arrElements(0), arrAttrs
If UBound(arrAttrs) >= 0 Then
' recuperamos el valor actual del primer atributo válido
Dim strAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "el valor actual de " & arrElements(0) & "//" & arrAttrs(0) & " es: " & strAttrVal
' cambiamos este valo y lo volvemos a leer
strAttrVal = "Hello"
objRange.SetElementAttributeValue arrElements(0), arrAttrs(0), strAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "el nuevo valor de " & arrElements(0) & "//" & arrAttrs(0) & " es: " & strAttrVal
End If
End If
End If