获取围绕给定坐标的POI

如何解决获取围绕给定坐标的POI

我需要以某种方式请求半径为1km的指定坐标（纬度，经度）周围的兴趣点

仅一点请求POI就会返回零结果：

Sub SetTextBoxStyle()
  Dim objTextBox As Shape
  Dim objDoc As Document
  Set objDoc = WordApp.ActiveDocument
  For Each objTextBox In objDoc.Shapes
  If objTextBox.TextFrame.HasText Then
  objTextBox.TextFrame.TextRange.ParagraphFormat.LinespacingRule = wdLinespaceSingle
  objTextBox.TextFrame.TextRange.ParagraphFormat.SpaceAfter = 0
  End If
  Next objTextBox
End Sub

有什么方法可以通过指定坐标和半径而无需计算bBox来获取类似google maps api上的数据吗？