Propiedad Cell.Result (Visio)

Obtiene o establece el valor de una celda. Lectura y escritura.

Sintaxis

expresión. Resultado (UnitsNameOrCode)

expresión Variable que representa un objeto Cell .

Parameters

Valor devuelto

Doble

Observaciones

Utilice la propiedad Result para establecer el valor de una celda no protegida. Si la fórmula de la celda está protegida con la función GUARD, la fórmula no se modifica y se genera un error. Si la celda contiene sólo una cadena de texto, se devolverá cero (0). Si la cadena no es válida, se generará un error.

Puede especificar UnitsNameOrCode como un entero o un valor de cadena. Por ejemplo, todas las instrucciones siguientes establecen UnitsNameOrCode en pulgadas.

retVal = Cell.Result (visInches)

retVal = Cell.Result (65)

retVal = Cell.Result ("in") donde "in" también puede ser cualquiera de las cadenas alternativas que representan pulgadas, como "inch", "in", o "intCounter".

Para obtener una lista completa de las cadenas de unidad válidas junto con las constantes de automatización (valores enteros) correspondientes, vea el tema sobre las unidades de medida.

Las constantes de automatización para representar unidades se declaran mediante la biblioteca de tipos de Visio en visUnitCodes miembro.

Para especificar unidades internas, pase una cadena de longitud cero (""). Las unidades internas son pulgadas para las distancias y radianes para los ángulos. Para especificar unidades implícitas, debe utilizar la propiedad Formula.

Ejemplo

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad Result.

 
Public Sub Result_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim intLocalCenterX As Double 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 Set vsoCell = vsoShape.Cells("LocPinX") 
 intLocalCenterX = vsoCell.Result("cm") 
 Debug.Print intLocalCenterX 
 
 'You can also use the constants defined by the Visio type library. 
 intLocalCenterX = vsoCell.Result(visInches) 
 Debug.Print intLocalCenterX 
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.