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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour