Propriété Crop.ShapeWidth (Office)

  • Article

Obtient ou définit la largeur d’une forme qui est utilisée pour rogner une image. Lecture-écriture.

Syntaxe

expression. ShapeWidth

Expression Expression qui renvoie un objet Crop .

Valeur renvoyée

Unique

Exemple

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, en rogne essentiellement le coin inférieur gauche de l’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 aussi

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.