AuthenticRange.SetElementAttributeValue
Siehe auch
Methode: SetElementAttributeValue (strElementName als String, strAttributeName als String, strAttributeValue als String)
Beschreibung
Liefert den Wert des in strAttributeName Attributs für das mit strElementName bezeichnete Element. Wenn das Attribut unterstützt wird, aber keinen zugewiesenen Wert hat, wird ein leerer String zurückgegeben. Um die Namen der von einem Element unterstützten Attribute zu ermitteln, verwenden Sie GetElementAttributeNames oder HasElementAttribute.
Fehler
2001 | Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig. | |
2005 | Es wurde ein ungültiger Elementname angegeben. Es wurde ein ungültiger Attributname angegeben. Es wurde ein ungültiger Attributwert angegeben. |
Beispiele
' --------------------------------------------
' VBScript
' Get and set element attributes
' --------------------------------------------
Dim objRange
Set objRange = objPlugin.AuthenticView.Selection
' first we find out all the elements below the beginning of the range
Dim arrElements
objRange.GetElementHierarchy arrElements
If IsArray(arrElements) Then
If UBound(arrElements) >= 0 Then
' we use the top level element and find out its valid attributes
Dim arrAttrs()
objRange.GetElementAttributeNames arrElements(0), arrAttrs
If UBound(arrAttrs) >= 0 Then
' we retrieve the current value of the first valid attribute
Dim strAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "current value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal
' we change this value and read it again
strAttrVal = "Hello"
objRange.SetElementAttributeValue arrElements(0), arrAttrs(0), strAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "new value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal
End If
End If
End If