Método DocumentWindow.RangeFromPoint (PowerPoint)

  • Artigo

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

Objeto DocumentWindow

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.