VB相关如何在EXCEL中读取选中图片/文本框的名字？

Question

使用VB编程的时候需要在OFFICE选中图片的时候能读取图片的名字。
其中PPT和WORD都能读取了，但是EXCEL里选中图片读不出任何东西。
如下图，不仅是图片，文本框也读不出名字。
大佬们有没有方法可以读图或者可以读出Name Box里显示的名字也行？

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

要从Excel工作表选择一个图片或文本框并获取其名称，您可以使用以下步骤：

1. 使用ActiveWorkbook对象来访问Excel工作簿。
2. 使用ActiveSheet对象来访问当前工作表。
3. 使用Range对象来访问选定的单元格或区域。
4. 使用Cells对象来访问选定的单元格或区域中的所有值。
5. 使用Application对象来访问应用程序对象。

以下是相应的VBA代码示例：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim picPath As String

    ' 获取选定的图片路径
    If Target.IsPicture Then
        picPath = "C:\Temp\" & Target.Name
    Else
        ' 获取选定的文本框名称
        picPath = "C:\Temp\" & Target.Name
    End If
    
    ' 打印图片路径到工作表
    Sheet1.Cells(1, 1).Value = picPath
End Sub

这段代码会在您选中图片时自动打印图片的路径，并且会将所选文本框的名称存储在名为picPath的变量中。请注意，这仅适用于包含图片的工作表，如果工作表只包含文本，则不会显示图片的路径。

此外，如果您想根据工作表中不同的列（例如，"名称"、"类型"等）来选择图片，请确保您的工作表具有这些列，并相应地调整代码以正确处理这些数据。