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 représentant la taille, en octets, de l'image liée ou un objet OLE. En lecture seule.
Syntaxe
expression. OriginalFileSize
Expression Variable qui représente un objet PictureFormat .
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 :
Exemple
L’exemple suivant montre comment tester chaque image dans la composition active, puis imprimer 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 "Original File Size: " & .OriginalFileSize & " bytes"
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.