Propiedad Options.MeasurementUnit (Publisher)

Devuelve o establece una constante PbUnitType que representa la unidad de medida estándar para Microsoft Publisher. Lectura y escritura.

Sintaxis

expresión. MeasurementUnit

expresión Variable que representa un objeto Options .

Valor devuelto

PbUnitType

Observaciones

El valor de la propiedad MeasurementUnit puede ser una de estas constantes PbUnitType declaradas en la biblioteca de tipos del publicador:

• pbUnitCM establece la unidad de medida en centímetros.
• pbUnitInch establece la unidad de medida en pulgadas.
• pbUnitPica establece la unidad de medida en picas.
• pbUnitPoint establece la unidad de medida en puntos.

Todas las demás constantes de unidad de medida no se aplican a esta propiedad; Si se usa, devuelven un error.

Ejemplo

En este ejemplo se establece a puntos la unidad de medida estándar de Publisher.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

En este ejemplo se muestra la unidad de medida actual.

Sub GetUnitOfMeasurement() 
 Dim measUnit As PbUnitType 
 Dim strUnit As String 
 
 measUnit = Options.MeasurementUnit 
 
 Select Case measUnit 
 Case 0 
 strUnit = "inches" 
 Case 1 
 strUnit = "centimeters" 
 Case 2 
 strUnit = "picas" 
 Case 3 
 strUnit = "points" 
 End Select 
 
 MsgBox "The current unit of measurement is " & strUnit 
 
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.