Classe CustomProperties (Excel VBA)

Uma coleção de objetos CustomProperty que representa informações adicionais. As informações podem ser usadas como metadados do XML. Para usar uma variável de classe CustomProperties, ela primeiro precisa ser instanciada por exemplo

Dim cps as CustomProperties
Set cps = ActiveSheet.CustomProperties

For Each

Aqui está um exemplo de processamento dos itens CustomProperties em uma coleção.

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

Add

Adiciona informações sobre a propriedade personalizada.

Add (Name, Value)

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

Arguments

O seguinte argumento é opcional

Name (String) - O nome da propriedade personalizada.

Value (Variant) - O valor da propriedade personalizada.

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveSheet.CustomProperties.Count

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O número de índice do objeto.

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