Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Crop.ShapeWidth, propriété (Office)Crop.ShapeWidth Property (Office)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Obtient ou définit la largeur d’une forme qui est utilisée pour rogner une image. En lecture-écriture.Gets or sets the width of a shape that is used to crop an image. Read/write

SyntaxeSyntax

expression. ShapeWidthexpression. ShapeWidth

expression Expression qui renvoie un objet de culture .expression An expression that returns a Crop object.

Valeur renvoyéeReturn Value

SimpleSingle

ExempleExample

L’exemple suivant insère une image 200 x 200 dans une présentation PowerPoint approximativement au centre de la diapositive. Ensuite, il redimensionne l’image dans le cadre au format 100 x 100. Le cadre d’image reste en 200 x 200. Le code ajoute ensuite un carré (la forme par défaut) juste au-dessus et à droite de l’image, ce qui a principalement pour effet de rogner le coin inférieur gauche de l’image.The following example inserts a 200 x 200 image into a PowerPoint presentation approximately in the center of the slide. It then resizes the image inside the frame to 100 x 100. The image frame stays at 200 x 200. The code then adds a square (the default shape) just above and to the right of the image, essentially cropping the lower left corner of the image.

Sub CropImage() 
 ActivePresentation.Slides(1).Shapes.AddPicture "c:\myImage.png", msoFalse, msoTrue, 250,150, 200, 200 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetX = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetY = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeLeft = 330 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeTop = 170 
End Sub 

Voir aussiSee also

ConceptsConcepts

Rogner l’objetCrop Object

Autres ressourcesOther resources

Membres de rogner l’objetCrop Object Members

© 2018 Microsoft