Propriété PictureFormat.EffectiveResolution (Publisher)

Renvoie un type Long qui représente, en points par pouce (PPP), la résolution effective de l'image. En lecture seule.

Syntaxe

expression. EffectiveResolution

Expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Entier long

Remarques

La résolution effective d'une image est inversement proportionnelle au redimensionnement selon lequel elle est imprimée. Plus le redimensionnement est important, moins la résolution est effective. Supposons, par exemple, qu'une image qui mesure 12 centimètres sur 12 centimètres a été scannée avec une résolution de 300 ppp. Si cette image est redimensionnée à 6 centimètres par 6 centimètres, sa résolution effective est de 600 ppp.

Utilisez la propriété OriginalResolution pour déterminer la résolution des images liées ou des objets OLE.

Utilisez les propriétés HorizontalScale et VerticalScale pour déterminer l'échelle d'une image.

Exemple

L’exemple suivant montre comment renvoyer une liste des images dont la résolution effective se trouve en dessous d’un seuil spécifié (100 ppp) dans la composition active.

Sub ListLowResolutionPictures() 
 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 .EffectiveResolution < 100 Then 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 Debug.Print "Resolution in publication: " & .EffectiveResolution 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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.