EXCEL求一段VBA代码

下面的代码可以实现你的大部分要求.只有直至单元格的长度宽宽超过原照片的大小后显示照片本身的大小这一条做不到,

在工作表名称上点右键选查看代码,粘贴以下代码到弹出窗口.关闭弹出窗口 ALT+F8选中该宏执行

Sub 添加图片()
Path = ThisWorkbook.Path
tpname = Dir(Path & "\*.jpg")
If tpname <> "" Then
Do
h = h + 1
Cells(h, 1) = Left(tpname, Len(tpname) - 4)
sfileName = ThisWorkbook.Path & "\" & tpname
With Cells(h, 2)
Shapes.AddPicture(sfileName, True, True, .Left, .Top, .Width, .Height).Select
Selection.Placement = xlMoveAndSize
End With
tpname = Dir
Loop While tpname <> ""
End If
Cells(1, 1).Select
End Sub

这个还是录制宏会比较可行，按照你说的，在宏录制的状态下先做一个范例，然后编辑宏，将其中的冗余代码删除，然后需要做这个操作的时候只需要执行宏就可以了

照片文件名称可以用宏自动出现在A1：A100里，只是填充照片，不会，期待高手解答！