Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie une constante MsoTriState qui indique si la forme spécifiée est un cadre d’image vide. En lecture seule.
Syntaxe
expression. IsEmpty
Expression Variable qui représente un objet PictureFormat .
Valeur renvoyée
MsoTriState
Remarques
La valeur de la propriété IsEmpty peut être une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office et affichées dans le tableau suivant.
| Constante | Description |
|---|---|
| msoFaux | La forme spécifiée n'est pas un cadre d'image vide. |
| msoTriEtatMélangé | Indique une combinaison de msoTrue et msoFalse pour la plage de formes spécifiée. |
| msoVrai | La forme spécifiée est un cadre d'image vide. |
Exemple
L’exemple suivant montre comment tester chaque image dans la composition active, et s’il ne s’agit pas d’un cadre d’image vide, comment imprimer les propriétés d’image sélectionnées pour l’image.
Dim pgLoop As Page
Dim shpLoop As Shape
For Each pgLoop In ActiveDocument.Pages
For Each shpLoop In pgLoop.Shapes
If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then
With shpLoop.PictureFormat
If .IsEmpty = msoFalse Then
Debug.Print "File Name: " & .Filename
Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%"
Debug.Print "Vertical Scaling: " & .VerticalScale & "%"
Debug.Print "File size in publication: " & .FileSize & " bytes"
End If
End With
End If
Next shpLoop
Next pgLoop
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.