Partilhar via

Propriedade Crop.ShapeTop (Office)

  • Artigo

Obtém ou define o local da parte superior de uma forma que será usada para cortar uma imagem. Leitura/gravação.

Sintaxe

expressão. ShapeTop

Expressão Uma expressão que retorna um objeto Crop .

Valor de retorno

Único

Comentários

No Microsoft Word, as propriedades ShapeLeft e ShapeTop retornarão um erro se a imagem ou a forma tiver o texto de envoltório definido como Embutido com Texto.

Exemplo

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. Em seguida, o código adiciona um quadrado (a forma padrão) logo acima e à direita da imagem, essencialmente cortando o canto inferior esquerdo da imagem.

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

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.