Excel表格中图片显示名称的技巧与解决方案

为什么需要显示图片名称？

在Excel工作表中插入多张图片后，默认情况下图片只显示图像内容，文件名被隐藏。当需要快速定位或引用特定图片时，手动记忆或查找文件名非常麻烦。通过让图片显示名称，可以显著提高工作效率。

方法一：使用批注显示图片名称

步骤：

1. 右键点击图片，选择“编辑批注”或“插入批注”。
2. 在批注框中手动输入图片的文件名。
3. 调整批注框位置，使其悬浮在图片上方或旁边。

优点：操作简单，无需编程。缺点：当图片数量多时，手动输入费时且容易出错。

方法二：使用VBA宏自动生成名称

步骤：

1. 按 Alt+F11 打开VBA编辑器。
2. 插入模块，粘贴以下代码：

   Sub ShowImageNames()
       Dim shp As Shape
       For Each shp In ActiveSheet.Shapes
           If shp.Type = msoPicture Then
               Dim txtBox As Shape
               Set txtBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                   shp.Left, shp.Top, shp.Width, 20)
               txtBox.TextFrame.Characters.Text = shp.Name
               txtBox.Fill.Visible = msoTrue
               txtBox.Line.Visible = msoFalse
               txtBox.TextFrame.HorizontalAlignment = xlHAlignCenter
           End If
       Next shp
   End Sub

3. 运行宏（按 F5）。

说明：该宏会在每张图片上方添加一个文本框，显示图片的名称（Excel自动分配的Shape名称如“Picture 1”）。如果你需要显示原始文件名，可以修改宏，利用 shp.Parent.Pictures 等方法获取。完整代码示例见下文。

显示原始文件名的增强版VBA：

Sub ShowOriginalFileNames()
    Dim pic As Picture
    For Each pic In ActiveSheet.Pictures
        Dim txtBox As Shape
        Set txtBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
            pic.Left, pic.Top - 20, pic.Width, 20)
        txtBox.TextFrame.Characters.Text = pic.Name ' 注意：这里显示的是Shape名称，若要原始文件名需额外处理
        ' 实际上Picture对象没有直接存储原始文件名属性，需要其他方法
    Next pic
End Sub

注意：Excel中的图片对象（Shape）不保留原始文件名。若需显示原始文件名，建议在插入图片时使用命名规范，或将文件名记录在另一列中。本宏主要显示Excel内部名称作为标识。

方法三：手动添加文本框

步骤：

1. 点击“插入”选项卡 > “文本框”。
2. 在图片上方绘制文本框，输入文件名。
3. 调整文本框格式：取消填充和轮廓，或设置半透明背景。
4. 按住Ctrl键同时选中图片和文本框，右键组合，使它们成为一个整体。

优点：灵活排版。缺点：对于大量图片不现实。

总结

以上三种方法各有适用场景。少量图片可手动操作；大量图片推荐使用VBA宏。注意VBA宏会覆盖图片上方区域，可调整文本框高度或位置以避免遮挡。始终备份文件以防意外。

掌握这些技巧，让你的Excel图片管理更加高效！