Propriété ShapeRange.IsInline (Publisher)

Renvoie une constante MsoTriState qui spécifie si une forme est inline. En lecture seule.

Syntaxe

expression. IsInline

Expression Variable qui représente un objet ShapeRange .

Exemple

Cet exemple teste la première forme (un cadre de texte) sur la première page de la composition pour voir si elle est insérée. Si elle n'est pas le cas, une recherche est effectuée dans cette forme pour rechercher les formes dans le cadre de texte. Les formes qui sont trouvent ont la propriété ForeColor la valeur rouge.

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Select 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
 End With 
End If

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.