Compartilhar via

Método Application.PointsToEmus (Publisher)

  • Artigo

Converte uma medida de pontos em emus (12700 emus = 1 ponto). Retorna a medida convertida como um Single.

Sintaxe

expressão. PointsToEmus (Valor)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Valor Obrigatório Single O valor de ponto a ser convertido em emus.

Valor de retorno

Único

Comentários

Use o método EmusToPoints para converter medidas em emus em pontos.

Exemplo

Este exemplo converte medidas em pontos inseridos pelo usuário em medidas em emus.

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in points (0 to cancel): ", _ 
 Default:="0") 
 
 ' Exit the loop if user enters zero. 
 If Val(strInput) = 0 Then Exit Do 
 
 ' Evaluate and display result. 
 strOutput = Trim(strInput) & " points = " _ 
 & Format(Application _ 
 .PointsToEmus(Value:=Val(strInput)), _ 
 "0.00") & " emus" 
 
 MsgBox strOutput 
Loop

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.