Método DocumentWindow.RangeFromPoint (PowerPoint)
Retorna o objeto de forma que está localizado no ponto especificado pelo par de coordenadas de posição na tela. Se nenhuma forma estiver localizada no par de coordenadas especificado, o método retornará Nothing.
Sintaxe
expressão. RangeFromPoint (x, y)
Expressão Uma variável que representa um objeto DocumentWindow .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| x | Obrigatório | Long | A distância horizontal (em pixels) da borda esquerda da tela até o ponto. |
| y | Obrigatório | Long | A distância vertical (em pixels) da parte superior da tela até o ponto. |
Exemplo
Este exemplo adiciona uma nova estrela de cinco pontas ao slide um, utilizando as coordenadas (288, 100). Em seguida, converte essas coordenadas de pontos para pixels, usa o método RangeFromPoint para retornar uma referência ao objeto novo e altera a cor de preenchimento da estrela. Observe que o exemplo não funciona a menos que você passe pelo código, possivelmente apontando para um bug com o método. A penúltima linha para definir uma referência ao objeto myShape falha no runtime, a menos que passe pelo código.
Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object
ActivePresentation.Slides(1).Shapes _
.AddShape(msoShape5pointStar, 288, 100, 100, 72).Select
myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
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.