Propriété Options.MeasurementUnit (Publisher)

Renvoie ou définit une constante PbUnitType représentant l’unité de mesure standard pour Microsoft Publisher. Lecture-écriture.

Syntaxe

expression. MeasurementUnit

expression Variable qui représente un objet Options .

Valeur renvoyée

PbUnitType

Remarques

La valeur de la propriété MeasurementUnit peut être l’une des constantes PbUnitType suivantes déclarées dans la bibliothèque de type Publisher :

• pbUnitCM définit l’unité de mesure sur centimètres.
• pbUnitInch définit l’unité de mesure sur pouces.
• pbUnitPica définit l’unité de mesure sur picas.
• pbUnitPoint définit l’unité de mesure sur des points.

Toutes les autres constantes d’unité de mesure ne s’appliquent pas à cette propriété ; si elles sont utilisées, elles retournent une erreur.

Exemple

Cet exemple définit les points comme unité de mesure standard dans Publisher.

Sub SetUnitOfMeasurement() 
 Options.MeasurementUnit = pbUnitPoint 
End Sub

Cet exemple affiche l'unité de mesure en cours.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.