Clase CustomProperty (Excel VBA)

La clase CustomProperty representa información de identificador, que se puede usar como metadatos para XML.

Set

Para usar una variable de clase CustomProperty, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase CustomProperty : Worksheet.CustomProperties, CustomProperties.Item y CustomProperties.Add

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CustomProperty en una colección.

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

CustomProperties.Add

Agrega información sobre propiedades personalizadas.

Sintaxis : expression.Add (Name, Value)

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

Arguments

Estos son los argumentos con nombre :

Name (String) - Nombre de la propiedad personalizada.

Value (Variant) - Valor de la propiedad personalizada.

CustomProperties.Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveSheet.CustomProperties.Count

CustomProperties.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto.

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

CustomProperties.Parent

Devuelve el objeto primario del objeto especificado.

Delete

Elimina el objeto.

Es posible eliminar propiedades personalizadas de los documentos, pero no propiedades integradas.

ActiveSheet.CustomProperties(1).Delete

Name

Devuelve o establece un valor de tipo String que representa el nombre del objeto.

ActiveSheet.CustomProperties(1).Name =

Parent

Devuelve el objeto primario del objeto especificado.

Value

Sinónimo de la propiedad Borders. LineStyle .

ActiveSheet.CustomProperties(1).Value =