Método Window.RangeFromPoint (Excel)

Artigo
04/07/2023

Retorna o objeto Shape ou Range posicionado no par de coordenadas de tela especificado. Se não houver uma forma localizada nas coordenadas especificadas, esse método retornará Nothing.

Sintaxe

expressão. RangeFromPoint (x, y)

Expressão Uma variável que representa um objeto Window .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
x	Obrigatório	Long	O valor (em pixels) que representa a distância horizontal a partir do limite esquerdo da tela, começando pela parte superior.
y	Obrigatório	Long	O valor (em pixels) que representa a distância vertical a partir da parte superior da tela, começando pela esquerda.

Valor de retorno

Objeto

Exemplo

Este exemplo retorna o texto alternativo para a forma imediatamente abaixo do ponteiro do mouse se a forma for um gráfico, linha ou figura.

Private Function AltText(ByVal intMouseX As Integer, _ 
 ByVal intMouseY as Integer) As String 
 Set objShape = ActiveWindow.RangeFromPoint _ 
 (x:=intMouseX, y:=intMouseY) 
 If Not objShape Is Nothing Then 
 With objShape 
 Select Case .Type 
 Case msoChart, msoLine, msoPicture: 
 AltText = .AlternativeText 
 Case Else: 
 AltText = "" 
 End Select 
 End With 
 Else 
 AltText = "" 
 End If 
End Function

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.

Partilhar via