Classe CalloutFormat (PowerPoint VBA)

Contient des propriétés et des méthodes qui s’appliquent aux légendes.

Set

Pour utiliser une variable de classe CalloutFormat, elle doit d'abord être instanciée, par exemple

Dim cft as CalloutFormat
Set cft = ActiveWindow.RangeFromPoint.Callout

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CalloutFormat : Shape.Callout et ShapeRange.Callout

Propriétés

Accent Cette propriété détermine si une barre verticale sépare le texte de la légende du trait de légende. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Accent = msoTrue

Angle Renvoie ou définit l'angle du trait de légende. Si le trait de légende contient plusieurs segments de ligne, cette propriété renvoie ou définit l’angle du segment le plus éloigné de la zone de texte de légende. En lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Callout.Angle = msoCalloutAngleMixed

AutoAttach Détermine si l’emplacement où le trait de légende s’attache à la zone de texte de la légende change selon que le début du trait de légende (emplacement désigné par la légende) se situe à gauche ou à droite de la zone de texte de la légende. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Callout.AutoAttach = msoTrue

AutoLength Détermine si le premier segment de la légende conserve la longueur fixe spécifiée par la propriété Length ou s’il est mis à l’horizontale automatiquement, chaque fois que la légende est déplacée. En lecture seule.

Dim mtsAutoLength As Office.MsoTriState
mtsAutoLength = ActivePresentation.Slides(1).Shapes(2).Callout.AutoLength

Border Détermine si le texte figurant dans la légende spécifiée est entouré d’une bordure. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Callout.Border = msoTrue

Drop Cette propriété renvoie la distance verticale (en points) du bord du texte de délimitation de zone vers l’emplacement vers lequel la ligne de légende rejoint la zone de texte pour une légende avec une valeur de déroulement défini explicitement. En lecture seule.

Dim sngDrop As Single
sngDrop = ActivePresentation.Slides(1).Shapes(2).Callout.Drop

DropType Cette propriété renvoie une valeur qui indique l’emplacement du point de jonction de la ligne de légende avec la zone de texte. En lecture seule.

Dim mcdDropType As Office.MsoCalloutDropType
mcdDropType = ActivePresentation.Slides(1).Shapes(2).Callout.DropType

Gap Renvoie ou définit la distance horizontale (en points) entre la fin de la ligne de légende et le cadre englobant le texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Callout.Gap = 3

Length Lorsque la propriété AutoLength de la légende spécifiée a la valeur false, la propriété Length renvoie la longueur (en points) du premier segment de la ligne de légende (segment attaché à la zone de texte de la légende). En lecture seule.

Dim sngLength As Single
sngLength = ActivePresentation.Slides(1).Shapes(2).Callout.Length

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Callout.Parent

Type Représente le type de légende. Lecture-écriture.

ActiveWindow.RangeFromPoint.Callout.Type = msoCalloutMixed