Propriété ThreeDFormat.PresetThreeDFormat (PowerPoint)

Renvoie le format d’extrusion prédéfini. En lecture seule.

Syntaxe

expression. PresetThreeDFormat

Expression Variable qui représente un objet ThreeDFormat .

Valeur renvoyée

MsoPresetThreeDFormat

Remarques

Cette propriété est en lecture seule. Pour définir le format d’extrusion prédéfini, utilisez la méthode SetThreeDFormat .

Chaque format d'extrusion prédéfini contient un ensemble de valeurs prédéfinies pour les différentes propriétés de l'extrusion. Les valeurs de cette propriété correspondent aux options (numérotées de gauche à droite, de haut en bas) affichées lorsque vous cliquez sur le sous-menu Rotation 3D dans le menu Effets de forme.

La valeur de la propriété PresetThreeDFormat peut être l’une de ces constantes MsoPresetThreeDFormat. Si la valeur est msoPresetThreeDFormatMixed, l’extrusion est dotée d’un format personnalisé au lieu d’un format prédéfini.

msoPresetThreeDFormatMixed
msoThreeD1
msoThreeD2
msoThreeD3
msoThreeD4
msoThreeD5
msoThreeD6
msoThreeD7
msoThreeD8
msoThreeD9
msoThreeD10
msoThreeD11
msoThreeD12
msoThreeD13
msoThreeD14
msoThreeD15
msoThreeD16
msoThreeD17
msoThreeD18
msoThreeD19
msoThreeD20

Exemple

Cet exemple montre comment définir le format de l'extrusion de la forme 1 dans myDocument sur le style 3D 12 si le format initial d'extrusion de la forme est personnalisé.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(1).ThreeD

    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then

        .SetThreeDFormat msoThreeD12

    End If

End With

Voir aussi

Objet ThreeDFormat

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.