Propriété PictureFormat.FileName (Publisher)

Renvoie une chaîne qui représente le nom de fichier de l'image spécifiée ou l'objet OLE. En lecture seule.

Syntaxe

expression. Fichier

Expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Chaîne

Remarques

Pour les images liées et les objets OLE, la chaîne renvoyée représente le chemin d'accès complet et le nom de l'image. Pour les images incorporées et les objets OLE, la chaîne renvoyée représente uniquement le nom de fichier.

Pour déterminer si une forme représente une image liée, utilisez la propriété Type de l’objet Shape ou la propriété IsLinked de l’objet PictureFormat .

Exemple

L’exemple suivant renvoie les propriétés d’image sélectionnées pour chaque image 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 
 
 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.