Método Application.PointsToEmus (Publisher)

Convierte una medida de puntos a emúes (12700 emús = 1 punto). Devuelve la medida convertida como Single.

Sintaxis

más sencilla.PointsToEmus (valor)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Valor Obligatorio Single El valor en puntos que se va a convertir a emus.

Valor devuelto

Simple

Comentarios

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 mediciones de emús.

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.

  • Last updated on