Classe InlineShape (Word VBA)

La classe InlineShape représente un objet situé dans la couche de texte d'un document.

Les procédures principales de la classe InlineShape sont Delete, Select, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt et InlineShapes.AddWebVideo

Set

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

Dim ise as InlineShape
Set ise = ActiveDocument.Range.InlineShapes(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe InlineShape : Field.InlineShape, InlineShapes.Item, InlineShapes.AddPicture, InlineShapes.New, InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt, InlineShapes.AddWebVideo, ListFormat.ListPictureBullet, ListLevel.ApplyPictureBullet, ListLevel.PictureBullet, Shape.ConvertToInlineShape, ShapeRange.ConvertToInlineShape, Document.InlineShapes, Range.InlineShapes et Selection.InlineShapes

For Each

Voici un exemple de traitement des éléments InlineShape dans une collection

Dim ise As InlineShape
For Each ise In ActiveDocument.Range.InlineShapes
	
Next ise

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Format with its procedures Borders, HorizontalLineFormat, LinkFormat, OLEFormat, ScaleHeight et ScaleWidth
Add with its procedures InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt et InlineShapes.AddWebVideo

Méthodes

Les méthodes principales de la classe InlineShape sont

Delete - Supprime la forme fixe spécifiée.

ActiveDocument.Range.InlineShapes(1).Delete

Select - Sélectionne la forme insérée spécifiée.

ActiveDocument.Range.InlineShapes(1).Select

Propriétés

AlternativeText Cette propriété renvoie ou définit une chaîne qui représente le texte de remplacement associé à une forme dans une page Web.

ActiveDocument.Range.InlineShapes(1).AlternativeText =

Chart Renvoie un objet Chart qui représente un graphique dans la collection de formes insérées dans un document.

Dim chrChart As Chart
Set chrChart = ActiveDocument.Range.InlineShapes(1).Chart

Decorative

ActiveDocument.Range.InlineShapes(1).Decorative =

Field Renvoie un objet Field qui représente le champ associé à la forme fixe spécifiée.

Dim fldField As Field
Set fldField = ActiveDocument.Range.InlineShapes(1).Field

Fill Renvoie un objet FillFormat qui contient les propriétés de mise en forme du remplissage pour la forme spécifiée.

Dim fftFill As FillFormat
Set fftFill = ActiveDocument.Range.InlineShapes(1).Fill

Glow Renvoie un objet GlowFormat qui représente les propriétés de mise en forme d'un effet lumineux.

Dim gftGlow As GlowFormat
Set gftGlow = ActiveDocument.Range.InlineShapes(1).Glow

GraphicStyle

ActiveDocument.Range.InlineShapes(1).GraphicStyle =

GroupItems Renvoie une collection GroupShapes qui représente les formes regroupées pour former une forme insérée.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Range.InlineShapes(1).GroupItems

HasChart True si la forme spécifiée est un graphique.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveDocument.Range.InlineShapes(1).HasChart

HasSmartArt Renvoie la valeur true s’il existe un diagramme SmartArt présent sur la forme.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveDocument.Range.InlineShapes(1).HasSmartArt

Height Cette propriété renvoie ou définit la hauteur d'une forme insérée.

ActiveDocument.Range.InlineShapes(1).Height =

Hyperlink Renvoie un objet Hyperlink qui représente le lien hypertexte associé à la forme fixe spécifiée.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActiveDocument.Range.InlineShapes(1).Hyperlink

IsPictureBullet La valeur True indique qu'un objet InlineShape constitue une puce image.

Dim booIsPictureBullet As Boolean
booIsPictureBullet = ActiveDocument.Range.InlineShapes(1).IsPictureBullet

Line Renvoie un objet LineFormat qui contient les propriétés de mise en forme du trait pour la forme spécifiée.

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Range.InlineShapes(1).Line

LockAspectRatio MsoTrue si la forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez.

ActiveDocument.Range.InlineShapes(1).LockAspectRatio =

Model3D

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Range.InlineShapes(1).Model3D

Parent Renvoie un Object qui représente l'objet parent de l'objet InlineShape spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes(1).Parent

PictureFormat Renvoie un objet PictureFormat qui contient les propriétés de la forme insérée en forme d’image.

ActiveDocument.Range.InlineShapes(1).PictureFormat =

Range Renvoie un objet Range qui représente la partie d'un document contenue dans une forme insérée.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.InlineShapes(1).Range

Reflection Renvoie un objet ReflectionFormat qui représente la mise en forme de la réflexion pour une forme.

Dim rftReflection As ReflectionFormat
Set rftReflection = ActiveDocument.Range.InlineShapes(1).Reflection

Script Renvoie un objet script qui représente un bloc de script ou de code associé à une image sur la page Web spécifiée.

Dim scrScript As Office.Script
scrScript = ActiveDocument.Range.InlineShapes(1).Script

Shadow Renvoie un objet ShadowFormat qui représente la mise en forme ombrée pour la forme spécifiée.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Range.InlineShapes(1).Shadow

SmartArt Renvoie un objet SmartArt qui fournit un moyen de travailler avec le SmartArt associé à la forme fixe spécifiée.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveDocument.Range.InlineShapes(1).SmartArt

SoftEdge Renvoie un objet SoftEdgeFormat qui représente la mise en forme de bordure arrondie pour une forme.

Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = ActiveDocument.Range.InlineShapes(1).SoftEdge

TextEffect Renvoie un objet TextEffectFormat qui contient les propriétés de mise en forme des effets de texte pour la forme fixe spécifiée.

ActiveDocument.Range.InlineShapes(1).TextEffect =

Title Cette propriété renvoie ou définit une chaîne qui contient un titre pour la forme fixe spécifiée.

ActiveDocument.Range.InlineShapes(1).Title =

Type Renvoie le type de forme insérée.

Dim wisType As WdInlineShapeType
wisType = ActiveDocument.Range.InlineShapes(1).Type

Width Cette propriété renvoie ou définit la largeur, exprimée en points, de la forme fixe spécifiée.

ActiveDocument.Range.InlineShapes(1).Width =

InlineShapes.Count Renvoie un type long qui représente le nombre de formes fixes dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Range.InlineShapes.Count

InlineShapes.Parent Renvoie un Object qui représente l'objet parent de l'objet InlineShapes spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes.Parent