Compartilhar via

Propriedade Options.MeasurementUnit (Publisher)

  • Artigo

Retorna ou define uma constante PbUnitType que representa a unidade de medição padrão do Microsoft Publisher. Leitura/gravação.

Sintaxe

expressão. MeasurementUnit

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

Valor de retorno

PbUnitType

Comentários

O valor da propriedade MeasurementUnit pode ser uma dessas constantes PbUnitType declaradas na biblioteca de tipos publisher:

  • pbUnitCM define a unidade de medida como centímetros.
  • pbUnitInch define a unidade de medida como polegadas.
  • pbUnitPica define a unidade de medida como picas.
  • pbUnitPoint define a unidade de medida como pontos.

Todas as outras constantes de unidade de medição não se aplicam a essa propriedade; se usado, eles retornam um erro.

Exemplo

Este exemplo define a medida padrão do Publisher em pontos.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

Este exemplo exibe a medida de unidade atual.

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

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.