Notes
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 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.