Propriedade PictureFormat.CropRight (PowerPoint)

Retorna ou define o número de pontos cortados do lado direito da imagem ou do objeto OLE especificado. Leitura/gravação.

Sintaxe

expressão. CropRight

Expressão Uma variável que representa um objeto PictureFormat .

Valor de retorno

Único

Comentários

Corte é calculado em relação ao tamanho original da imagem. Por exemplo, se você insere uma imagem que é originalmente 100 pontos de largura, redimensioná-la de forma que ele fique 200 pontos de largura e, em seguida, defina a propriedade CropRight como 50, 100 pontos (e não 50) serão cortados do lado direito da sua imagem.

Exemplo

Este exemplo corta 20 pontos do lado direito da forma três de myDocument. Para que o exemplo funcione, a forma três precisa ser uma imagem ou um objeto OLE.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).PictureFormat.CropRight = 20

Este exemplo corta o percentual especificado pelo usuário do lado direito da forma selecionada, independente da forma ter sido ajustada. Para que o exemplo funcione, a forma selecionada precisa ser uma imagem ou um objeto OLE.

percentToCrop = InputBox("What percentage do you " & _
    "want to crop off the right of this picture?")

Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)

With shapeToCrop.Duplicate
    .ScaleWidth 1, True
    origWidth = .Width
    .Delete
End With

cropPoints = origWidth * percentToCrop / 100

shapeToCrop.PictureFormat.CropRight = cropPoints

Confira também

Objeto PictureFormat

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.