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 PbImageFormat qui représente le format d’image d’une image tel que déterminé par l’interface de périphérique graphique Microsoft Windows (GDI+). En lecture seule.
Syntaxe
expression. ImageFormat
expression Variable qui représente un objet PictureFormat .
Valeur renvoyée
PbImageFormat
Remarques
La propriété ImageFormat s'applique à l'image d'origine, plutôt que l'image d'espace réservé, s'il en existe une.
La valeur de la propriété ImageFormat peut être une des constantes PbImageFormat déclarées dans la bibliothèque de type Microsoft Publisher.
La propriété ImageFormat indique le format de l'image une fois qu'il a été importé dans l'environnement Windows, plutôt que son format de fichier d'origine. Si le format de fichier du fichier image n'est pas pris en charge en mode natif par le système d'exploitation Windows, l'image est convertie en un format analogue pris en charge en mode natif. Par conséquent, l'une des constantes pbImageFormatCMYKJPEG, pbImageFormatDIB, pbImageFormatEMF, pbImageFormatGIF et pbImageFormatPICT seront rarement, voire jamais, renvoyées.
Consultez le tableau suivant pour connaître les conversions de format de fichier spécifiques.
| Format de fichier | Constante renvoyée |
|---|---|
| .bmp, .dib, .gif, .pict | pbImageFormatPNG |
| .emf, .eps, .epfs | pbImageFormatWMF |
| CMYK .jfif, .jpeg, .jpg | pbImageFormatJPEG |
Windows GDI+ est la partie du système d’exploitation Windows et du système d’exploitation Windows Server qui fournit des graphiques vectoriels bidimensionnels, une image et une typographie.
Exemple
L’exemple suivant imprime une liste des images .jpg et .jpeg présentes dans la composition active.
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
If .ImageFormat = pbImageFormatJPEG Then
Debug.Print .Filename
End If
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.