Propriedade PictureFormat.CropTop (Word)
Retorna ou define o número de pontos que são cortadas da parte superior da imagem especificada ou objeto OLE. Leitura/gravação único.
Sintaxe
expressão. CropTop
Expressão Uma variável que representa um objeto 'PictureFormat'.
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 CropTop como 50, 100 pontos (e não 50) serão cortados da parte superior da sua imagem.
Exemplo
Este exemplo corta 20 pontos da parte superior da forma três do documento ativo. Para que o exemplo funcione, a forma três precisa ser uma imagem ou um objeto OLE.
ActiveDocument.Shapes(3).PictureFormat.CropTop = 20
Este exemplo corta o percentual especificado pelo usuário a partir da parte superior 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.
Dim dblPercent As Double
Dim shapeCrop As Shape
Dim sngHeight As Single
Dim sngCrop As Single
dblPercent = Val(InputBox("What percentage do you want " _
& "to crop off the top of this picture?"))
Set shapeCrop = _
Selection.ShapeRange(1)
With shapeCrop.Duplicate
.ScaleHeight 1, True
sngHeight = .Height
.Delete
End With
sngCrop = sngHeight * dblPercent / 100
shapeCrop.PictureFormat.CropTop = sngCrop
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de