Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Objet Shape (PowerPoint)

office 365 dev account|Dernière mise à jour: 02/03/2018
|
1 Contributeur

Représente un objet dans la couche dessin, tel qu'une forme automatique, une forme libre, un objet OLE ou une image.

Remarques

Remarque Trois objets représentent des formes : la collection Shapes, qui représente toutes les formes d'un document ; la collection ShapeRange, qui représente un sous-ensemble défini des formes d'un document (un objet ShapeRange peut représenter, par exemple, les formes 1 et 4 d'un document ou toutes les formes sélectionnées du document) ; l'objet Shape, qui représente une forme unique d'un document. Si vous désirez travailler simultanément avec plusieurs formes ou avec des formes d'une sélection, utilisez une collection ShapeRange. Pour obtenir une vue d'ensemble sur la façon de manipuler une forme unique ou plusieurs formes à la fois, consultez Utilisation des formes (objets dessinés).

Les exemples suivants montrent comment effectuer les tâches suivantes :

  • Renvoyer une forme existante d'une diapositive, indexée par nom ou numéro

  • Renvoyer une nouvelle forme sur une diapositive

  • Renvoyer une forme de la sélection

  • Renvoyer le titre et d'autres espaces réservés d'une diapositive

  • Renvoyer les formes attachées aux extrémités d'un connecteur

  • Renvoyer la forme par défaut d'une présentation

  • Renvoyer une nouvelle forme libre

  • Renvoyer une forme individuelle d'un groupe

  • Renvoyer un nouveau groupe de formes

Exemple

Pour renvoyer un objet Shapes qui représente une forme sur une diapositive, spécifiez Shape(index), index désignant le nom de la forme ou le numéro d'index. L'exemple suivant montre comment retourner horizontalement la forme un et la forme appelée Rectangle 1 de myDocument.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).Flip msoFlipHorizontal

myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

Chaque forme reçoit un nom par défaut lorsque vous l'ajoutez à la collection Shapes. Pour nommer la forme de manière plus explicite, utilisez la propriété Name. L'exemple suivant permet d'ajouter un rectangle dans myDocument, de le nommer Red Square, puis de définir sa couleur de premier plan et son style de trait.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _

        Top:=144, Left:=144, Width:=72, Height:=72)

    .Name = "Red Square"

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Line.DashStyle = msoLineDashDot

End With

Pour ajouter une forme à une diapositive et renvoyer un objet Shape qui représente la nouvelle forme, utilisez l'une des méthodes suivantes de la collection Shapes: AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect ou AddTitle.

Pour renvoyer un objet Shape qui représente une forme dans la sélection, spécifiez Selection.ShapeRange (index), index désignant le nom de la forme ou le numéro d'index. L'exemple suivant montre comment définir le remplissage de la première forme de la sélection dans la fenêtre active, en supposant qu'il existe au moins une forme dans la sélection.

ActiveWindow.Selection.ShapeRange(1).Fill _

    .ForeColor.RGB = RGB(255, 0, 0)

Utilisez Shapes.Title pour renvoyer un objet Shape qui représente un titre de diapositive existant. Utilisez Shapes.AddTitle pour ajouter un titre à une diapositive qui n'en possède pas encore et renvoyer un objet Shape qui représente le nouveau titre. Pour renvoyer un objet Shape qui représente un espace réservé, spécifiez Shapes.Placeholders (index), où index désigne le numéro d'index de l'espace réservé. Si vous n'avez pas modifié l'ordre des couches des formes sur une diapositive, les trois instructions suivantes produisent le même résultat, en supposant que la diapositive un possède un titre :

ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes.Placeholders(1) _

    .TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.Font.Italic = True

Pour renvoyer un objet Shape qui représente l'une des formes attachées par un connecteur, utilisez la propriété BeginConnectedShapeou EndConnectedShape.

Pour renvoyer un objet Shape qui représente la forme par défaut d'une présentation, utilisez la propriété DefaultShape.

Utilisez les méthodes BuildFreeformet AddNodespour définir la géométrie d'une nouvelle forme libre et utilisez la méthode ConvertToShapepour créer la forme libre et renvoyer l'objet Shape qui la représente.

Pour renvoyer un objet Shape qui représente une seule forme d'un groupe de formes, spécifiez GroupItems (Index), Index étant le nom ou le numéro d'index de la forme du groupe à renvoyer.

Pour regrouper une plage de formes et renvoyer un seul objet Shape qui représente le groupe nouvellement constitué, utilisez la méthode Group ou Regroup. Une fois constitué, le groupe peut être traité comme n'importe quelle autre forme.

Méthodes

Nom
Apply
ApplyAnimation
ConvertTextToSmartArt
Copy
Cut
Delete
Duplicate
Flip
IncrementLeft
IncrementRotation
IncrementTop
PickUp
PickupAnimation
RerouteConnections
ScaleHeight
ScaleWidth
Select
SetShapesDefaultProperties
Ungroup
UpgradeMedia
ZOrder

Propriétés

Nom
ActionSettings
Adjustments
AlternativeText
AnimationSettings
Application
AutoShapeType
BackgroundStyle
BlackWhiteMode
Callout
Chart
Child
ConnectionSiteCount
Connector
ConnectorFormat
Creator
CustomerData
Fill
Glow
GroupItems
HasChart
HasInkXML
HasSmartArt
HasTable
HasTextFrame
Height
HorizontalFlip
Id
InkXML
IsNarration
Left
Line
LinkFormat
LockAspectRatio
MediaFormat
MediaType
Name
Nodes
OLEFormat
Parent
ParentGroup
PictureFormat
PlaceholderFormat
Reflection
Rotation
Shadow
ShapeStyle
SmartArt
SoftEdge
Table
Tags
TextEffect
TextFrame
TextFrame2
ThreeD
Title
Top
Type
VerticalFlip
Vertices
Visible
Width
ZOrderPosition

Voir aussi

Concepts

Référence du modèle objet PowerPoint

Autres ressources

© 2018 Microsoft