Propriedade Cell.Result (Visio)

Obtém ou define o valor de uma célula. Leitura/gravação.

Sintaxe

expressão. Resultado (UnitsNameOrCode)

Expressão Uma variável que representa um objeto Cell .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
UnitsNameOrCode	Obrigatório	Variantes	As unidades que serão utilizadas ao recuperar ou definir o valor da célula.

Valor de retorno

Duplo

Comentários

Use a propriedade Result para definir o valor de uma célula não protegida. Se a fórmula da célula é protegida pela função GUARD, a fórmula não é alterada e é gerado um erro. Se a célula contém apenas uma cadeia de caracteres de texto, é retornado zero (0). Se a cadeia de caracteres for inválida, é gerado um erro.

Você pode especificar UnitsNameOrCode como um valor de cadeia de caracteres ou inteiro. Por exemplo, as seguintes instruções definiram UnitsNameOrCode como polegadas.

Retval = Cell.Result (visInches)

Retval = Cell.Result (65)

Retval = Cell.Result ("in") em que "in" também pode ser qualquer uma das cadeias de caracteres alternativas que representam polegadas, como "inch", "in.", ou "intCounter".

Para obter uma lista completa de sequências de texto de unidades válidas juntamente com constantes de automação correspondentes (valores inteiros), consulte Sobre unidades de medida.

As constantes de automação para representar unidades são declaradas pela biblioteca de tipos do Visio no Membro VisUnitCodes.

Para especificar unidades internas, passe uma cadeia de caracteres de comprimento zero (""). Unidades internas são polegadas para distância e radianos para ângulos. Para especificar unidades implícitas, você deve usar a propriedade Formula.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.