怎么在excel获取图片名称

在Excel中获取图片名称：使用VBA代码、通过宏录制、利用Power Query。使用VBA代码是最常见的方法，可以通过编写简单的VBA脚本来提取图片名称，并将其显示在工作表中。通过宏录制，可以自动化重复性任务，方便快速获取图片名称。此外，利用Power Query可以进行更复杂的数据处理和整合。下面将详细介绍使用VBA代码来获取图片名称的步骤。

一、使用VBA代码

使用VBA（Visual Basic for Applications）代码是获取Excel中图片名称的一个常见方法。以下是详细步骤：

1、启用开发者选项

首先，你需要启用Excel中的开发者选项，以便访问VBA编辑器。

1. 打开Excel。
2. 点击“文件”菜单，然后选择“选项”。
3. 在Excel选项窗口中，选择“自定义功能区”。
4. 在右侧的主选项卡列表中，勾选“开发工具”，然后点击“确定”。

2、打开VBA编辑器

1. 在Excel中，点击“开发工具”选项卡。
2. 点击“Visual Basic”按钮，打开VBA编辑器。
3. 在VBA编辑器中，点击“插入”菜单，然后选择“模块”，插入一个新的模块。

3、编写VBA代码

在新插入的模块中，输入以下VBA代码：

Sub GetImageNames()

    Dim ws As Worksheet
    Dim shp As Shape
    Dim row As Integer
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 设置开始行
    row = 1
    ' 遍历所有形状对象
    For Each shp In ws.Shapes
        ' 判断形状是否为图片
        If shp.Type = msoPicture Then
            ' 将图片名称写入单元格
            ws.Cells(row, 1).Value = shp.Name
            row = row + 1
        End If
    Next shp
End Sub

4、运行VBA代码

1. 关闭VBA编辑器，返回Excel工作表。
2. 点击“开发工具”选项卡，然后点击“宏”按钮。
3. 在宏列表中选择“GetImageNames”，然后点击“运行”。

此代码将遍历工作表中的所有形状，并将图片名称写入第1列的单元格中。

二、通过宏录制

宏录制功能可以帮助你自动记录执行的步骤，并生成VBA代码。虽然宏录制无法直接获取图片名称，但你可以结合宏录制和手动调整代码来实现这一功能。

1、录制宏

1. 在Excel中，点击“开发工具”选项卡。
2. 点击“录制宏”按钮。
3. 输入宏名称，如“RecordImageNames”，然后点击“确定”。
4. 执行一些与图片相关的操作，例如选择图片、移动图片等。
5. 点击“停止录制”按钮。

2、编辑宏代码

1. 在Excel中，点击“开发工具”选项卡。
2. 点击“宏”按钮，选择刚才录制的宏，如“RecordImageNames”，然后点击“编辑”。
3. 在VBA编辑器中，根据录制的代码，手动添加获取图片名称的代码。

Sub RecordImageNames()

    Dim ws As Worksheet
    Dim shp As Shape
    Dim row As Integer
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 设置开始行
    row = 1
    ' 遍历所有形状对象
    For Each shp In ws.Shapes
        ' 判断形状是否为图片
        If shp.Type = msoPicture Then
            ' 将图片名称写入单元格
            ws.Cells(row, 1).Value = shp.Name
            row = row + 1
        End If
    Next shp
End Sub

3、运行宏

1. 关闭VBA编辑器，返回Excel工作表。
2. 点击“开发工具”选项卡，然后点击“宏”按钮。
3. 在宏列表中选择“RecordImageNames”，然后点击“运行”。

此代码将遍历工作表中的所有形状，并将图片名称写入第1列的单元格中。

三、利用Power Query

Power Query是一种强大的数据处理工具，可以用来从各种数据源中提取、转换和加载数据。虽然Power Query不能直接获取图片名称，但可以与VBA代码结合使用，以实现更复杂的数据处理任务。

1、启用Power Query

1. 打开Excel。
2. 点击“数据”选项卡，然后选择“获取数据”。
3. 选择“从其他源”中的“从Microsoft Query”。

2、编写VBA代码结合Power Query

你可以编写VBA代码，将图片名称提取到工作表中，然后使用Power Query来处理和整合数据。以下是一个示例代码：

Sub GetImageNamesWithPowerQuery()

    Dim ws As Worksheet
    Dim shp As Shape
    Dim row As Integer
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 设置开始行
    row = 1
    ' 遍历所有形状对象
    For Each shp In ws.Shapes
        ' 判断形状是否为图片
        If shp.Type = msoPicture Then
            ' 将图片名称写入单元格
            ws.Cells(row, 1).Value = shp.Name
            row = row + 1
        End If
    Next shp
    ' 使用Power Query处理数据
    ' 这里可以添加你需要的Power Query代码
End Sub

3、运行VBA代码并使用Power Query处理数据

1. 关闭VBA编辑器，返回Excel工作表。
2. 点击“开发工具”选项卡，然后点击“宏”按钮。
3. 在宏列表中选择“GetImageNamesWithPowerQuery”，然后点击“运行”。
4. 使用Power Query从工作表中提取图片名称，并进行进一步的数据处理。

四、总结

在Excel中获取图片名称可以通过多种方法实现，其中使用VBA代码是最常见和方便的方法。通过编写简单的VBA脚本，可以快速提取图片名称并显示在工作表中。通过宏录制可以自动化重复性任务，方便快速获取图片名称。利用Power Query可以进行更复杂的数据处理和整合。

无论选择哪种方法，都需要根据具体的需求和工作环境进行调整和优化。希望本文提供的详细步骤和示例代码能帮助你在Excel中成功获取图片名称，并提高工作效率。

相关问答FAQs：

1. 如何在Excel中提取图片的文件名？

在Excel中提取图片文件名的方法有以下几种：

• 手动提取：选择图片，右键单击并选择“属性”，然后复制并粘贴文件名到Excel中。
• 使用公式：使用公式结合“=RIGHT”、“=FIND”和“=LEN”等函数来提取文件名。例如，如果图片路径存储在单元格A1中，可以使用类似于=RIGHT(A1,LEN(A1)-FIND("*",SUBSTITUTE(A1,"","*",LEN(A1)-LEN(SUBSTITUTE(A1,"","")))))的公式来提取文件名。
• 使用VBA宏：使用VBA编写一个宏来自动提取图片文件名。通过遍历所选单元格中的图片，并使用“InStrRev”和“Right”等函数来提取文件名。

2. 如何批量在Excel中获取多个图片的文件名？

要在Excel中批量获取多个图片的文件名，可以使用VBA宏来实现。编写一个宏，通过遍历所选单元格中的每个图片，并将每个文件名保存到一个单独的单元格中。可以使用“InStrRev”和“Right”等函数来提取文件名，并使用循环来处理每个图片。

3. 如何在Excel中获取嵌入在单元格中的图片的文件名？

要在Excel中获取嵌入在单元格中的图片的文件名，可以使用VBA宏来实现。编写一个宏，通过遍历每个单元格，检查其中是否包含图片。如果包含图片，则提取图片的文件名并保存到一个单独的单元格中。可以使用“InStrRev”和“Right”等函数来提取文件名，并使用循环来处理每个单元格。