问 一段监听点击shape形状，获取形状位置的VBA代码，想换到JS宏，一直搞不定，请教一下写法

一段监听点击形状，获取形状位置的VBA代码，想换到JS宏，一直搞不定，请教一下写法 Dim folderPath As String Dim clickShp As Shape Dim shpPosition As String Dim fileName As String Dim dateNum As Integer Set clickShp = ActiveSheet.Shapes(Application.Caller) shpPosition = clickShp.TopLeftCell.Address folderPath = Range(shpPosition).Offset(0, 1).Value fileName = Range(shpPosition).Offset(0, 2).Value dateNum = Range(shpPosition).Offset(0, 3).Value Dim filesToOpen As Variant Set filesToOpen = FindFiles(folderPath, fileName, dateNum)