Klasse CustomProperty (Excel VBA)

Die Klasse CustomProperty stellt Bezeichnerinformationen dar, die als Metadaten für XML verwendet werden können.

Set

Um eine CustomProperty -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cprp as CustomProperty
Set cprp = ActiveSheet.CustomProperties(Index:=1)

Die folgenden Prozeduren können zum Festlegen der CustomProperty Klassenvariablen verwendet werden : Worksheet.CustomProperties, CustomProperties.Item und CustomProperties.Add

For Each

Hier ist ein Beispiel für die Verarbeitung der CustomProperty -Elemente in einer Sammlung

Dim cprpCustomPropertie As CustomProperty
For Each cprpCustomPropertie In ActiveSheet.CustomProperties
	
Next cprpCustomPropertie

CustomProperties.Add

Fügt Informationen zu benutzerdefinierten Eigenschaften hinzu.

Syntax : expression.Add (Name, Value)

Dim strName As String: strName = 
Dim cprp As CustomProperty
Set cprp = ActiveSheet.CustomProperties.Add(Name:=strName, Value:=)

Arguments

Hier sind die benannte Argumente :

Name (String) - Der Name der benutzerdefinierten Eigenschaft.

Value (Variant) - Der Wert der benutzerdefinierten Eigenschaft.

CustomProperties.Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveSheet.CustomProperties.Count

CustomProperties.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des Objekts.

Dim cprpItem As CustomProperty
Set cprpItem = ActiveSheet.CustomProperties(Index:=1)

CustomProperties.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Delete

Löscht das Objekt.

Sie können benutzerdefinierte Dokumenteigenschaften löschen, jedoch keine integrierte Dokumenteigenschaft.

ActiveSheet.CustomProperties(1).Delete

Name

Gibt einen String-Wert zurück, der den Namen des Objekt darstellt, oder legt diesen Wert fest.

ActiveSheet.CustomProperties(1).Name =

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Value

Synonym für die umrandungs. inlinestyle -Eigenschaft.

ActiveSheet.CustomProperties(1).Value =