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 un type Long qui représente la mise à l'échelle de l'image sur son axe horizontal. La mise à l'échelle est exprimée sous forme de pourcentage (par exemple, 200 équivaut à 200 pour cent montée en charge). En lecture seule.
Syntaxe
expression. HorizontalScale
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é EffectiveResolution pour déterminer la résolution à laquelle l’image ou l’objet OLE sera imprimé dans le document spécifié.
Exemple
L’exemple suivant imprime les propriétés de l’image sélectionnée 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 "Resolution in Publication: " & .EffectiveResolution & " dpi"
Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%"
Debug.Print "Height in publication: " & .Height & " points"
Debug.Print "Vertical Scaling: " & .VerticalScale & "%"
Debug.Print "Width in publication: " & .Width & " points"
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.