Propriedade PictureFormat.CropBottom (PowerPoint)
Retorna ou define o número de pontos cortados da parte inferior da imagem ou do objeto OLE especificado. Leitura/gravação.
Sintaxe
expressão. CropBottom
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 altura, redimensioná-la de forma que ele fique 200 pontos de altura e, em seguida, defina a propriedade CropBottom como 50, 100 pontos (e não 50) serão cortados da parte inferior da sua imagem.
Exemplo
Este exemplo corta 20 pontos da parte inferior da forma três de myDocument. Para este exemplo funcionar, a forma três precisa ser uma figura ou um objeto OLE.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropBottom = 20
Este exemplo corta o percentual especificado pelo usuário a partir da parte inferior da forma selecionada, independente da forma ter sido redimensionada. 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 bottom of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropBottom = cropPoints
Confira também
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.