Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Crop.PictureWidth (Office)Crop.PictureWidth Property (Office)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Obtém ou define a largura da imagem que será cortada. Leitura/gravaçãoGets or sets the width of the image that is to be cropped. Read/write

SintaxeSyntax

expressão. PictureWidthexpression. PictureWidth

expressão Uma expressão que retorna um objeto Crop .expression An expression that returns a Crop object.

Valor retornadoReturn Value

SingleSingle

ExemploExample

O exemplo a seguir insere uma imagem 200 x 200 em uma apresentação em PowerPoint aproximadamente no centro do slide. Em seguida, redimensiona a imagem no quadro para 100 x 100. O quadro da imagem permanece em 200 x 200. O código então adiciona um quadrado (a forma padrão) logo acima e à direita da imagem, cortando essencialmente o canto inferior esquerdo da imagem.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 

Ver tambémSee also

ConceitosConcepts

Objeto CropCrop Object

Outros recursosOther resources

Membros do objeto CropCrop Object Members

© 2018 Microsoft