Propriété PictureFormat.OriginalResolution (Publisher)

Renvoie un type Long qui représente, en points par pouce (PPP), la résolution à laquelle l'image liée a été initialement analysé. En lecture seule.

Syntaxe

expression. OriginalResolution

expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Entier long

Remarques

Cette propriété s'applique uniquement aux images liées. Renvoie le message « Autorisation refusée » pour les formes représentant des images incorporées ou collées.

Utilisez une des propriétés suivantes pour déterminer si une forme représente une image liée :

• La propriété Type de l'objet Shape
• La propriété IsLinked de l'objet PictureFormat

Utilisez la propriété EffectiveResolution pour déterminer la résolution à laquelle l'image ou l'objet OLE s'imprime dans le document spécifié.

Exemple

L’exemple suivant montre comment tester chaque image dans la composition active, puis renvoyer les propriétés de l’image sélectionnée pour les images qui sont liées.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Original Resolution: " & .OriginalResolution & " dpi" 
 
 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.