Clase ModelMeasure (Excel VBA)

La clase ModelMeasure representa un único objeto ModelMeasure en la colección ModelMeasures .

Los principales procedimientos de la clase ModelMeasure son Delete y ModelMeasures.Add

Set

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

Dim mme as ModelMeasure
Set mme = ActiveWorkbook.Model.ModelMeasures(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase ModelMeasure : ModelMeasures.Item, ModelMeasures.Add y Model.ModelMeasures

For Each

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

Dim mme As ModelMeasure
For Each mme In ActiveWorkbook.Model.ModelMeasures
	
Next mme

Métodos

Los principales métodos de la clase ModelMeasure son

Delete - Elimina la medida del modelo del modelo de datos.

ActiveWorkbook.Model.ModelMeasures(1).Delete

ModelMeasures.Add - Agrega una medida del modelo al modelo.

Dim strMeasureName As String: strMeasureName = 
Dim strFormula As String: strFormula = 
Dim mme As ModelMeasure
Set mme = ActiveWorkbook.Model.ModelMeasures.Add(MeasureName:=strMeasureName, AssociatedTable:=, Formula:=strFormula, FormatInformation:=)

Otros Métodos

ModelMeasures.Item - Devuelve un solo objeto de una colección.

Propiedades

AssociatedTable

ActiveWorkbook.Model.ModelMeasures(1).AssociatedTable =

Description La descripción de la medida del modelo.

ActiveWorkbook.Model.ModelMeasures(1).Description =

FormatInformation El formato de la medida del modelo.

ActiveWorkbook.Model.ModelMeasures(1).FormatInformation =

Formula La fórmula de expresiones de análisis de datos (DAX) de la medida del modelo.

ActiveWorkbook.Model.ModelMeasures(1).Formula =

Name El nombre de la medida del modelo.

ActiveWorkbook.Model.ModelMeasures(1).Name =

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelMeasures(1).Parent

ModelMeasures.Count Devuelve un entero que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.Model.ModelMeasures.Count

ModelMeasures.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWorkbook.Model.ModelMeasures.Parent