Método Application.PointsToEmus (Publisher)

Convierte una medida de puntos a emus (12700 emus = 1 punto). Devuelve la medida convertida como Single.

Sintaxis

expresión. PointsToEmus (Valor)

expresión Variable que representa un objeto Application.

Parámetros

Valor devuelto

Simple

Observaciones

Utilice el método EmusToPoints para convertir a puntos las medidas en emus.

Ejemplo

En este ejemplo se convierten las medidas de los puntos especificados por el usuario en medidas en 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 

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.