Excel VBA如何获取图片点击位置向相邻单元格写入文件夹路径

• 工作表中已插入文件夹样式图片，绑定了点击触发的宏，点击后弹出文件夹选择对话框的功能运行正常
• 需求为将用户选中的文件夹路径写入该图片的相邻单元格
• 现存问题：点击图片不会改变当前单元格的选中状态，无法通过ActiveCell.Address获取位置，也无法通过.Next属性定位相邻单元格
• 核心诉求：在不改变单元格选中状态的前提下，定位图片对应的相邻单元格完成路径写入

不需要额外捕获用户点击时的单元格选中状态，直接通过触发宏的图片自身的锚定属性就能定位目标单元格，全程不会改动当前单元格的选中状态，逻辑如下：

• 绑定到工作表图片、形状的宏，运行时可直接通过Application.Caller拿到触发宏的图片对象，无需额外监听点击事件
• 拿到图片对象后，调用其自带的TopLeftCell属性，即可直接获取图片左上角锚定的单元格，该属性仅和图片放置的位置有关，和当前选中哪个单元格完全无关
• 对该锚定单元格做行列偏移，就能得到需要写入路径的相邻单元格，直接赋值即可

可直接复用的参考代码：

Sub SelectFolderAndWritePath(Optional ByVal clickedShape As Object)
    Dim targetFolderPath As String
    Dim anchorRange As Range
    Dim outputRange As Range
    Dim folderDialog As FileDialog
    
    ' 兜底获取触发宏的图片对象
    If clickedShape Is Nothing Then
        Set clickedShape = ActiveSheet.Shapes(Application.Caller)
    End If
    
    ' 原有文件夹选择逻辑可直接复用
    Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With folderDialog
        .Title = "请选择目标文件夹"
        If .Show = -1 Then
            targetFolderPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 获取图片锚定的单元格，全程不改变现有选中状态
    Set anchorRange = clickedShape.TopLeftCell
    ' 按实际需求调整偏移量：右侧相邻单元格为Offset(0,1)，下方相邻单元格为Offset(1,0)
    Set outputRange = anchorRange.Offset(0, 1)
    
    ' 写入选中的文件夹路径
    outputRange.Value = targetFolderPath
End Sub

宏绑定到图片后不需要手动配置传参，Excel会自动识别触发对象；如果手动从宏列表运行这段代码，兜底逻辑也能保证正常识别。整个运行过程不会修改原有单元格选中状态，点击图片前选中的单元格，在宏执行完成后会保持原选中状态不变。

内容的提问来源于stack exchange，提问作者Jean-François Handfield