Sub 批量插入图片() Dim wj As String Dim rng As Range Sheets("sheet1").Select '选中要插入图片的工作表 x = [a65536].End(xlUp).Row '取得最后一行的行号 For i = 2 To x na = Cells(i, 1) '从第一列(即A列)得到照片名,并以此名查找图片 ... >>详细
问题2:如何在excel中批量植入员工相片,百度上看不到具体...
要想批量插入得用VBA代码来实现,将表格与照片文件夹从放在同一个根目录下。 Sub chartup() For Each shap In Sheet1.Shapes '在sheet1中的图片对象进行循环 If shap.Type 8 Then shap.Delete '在插入图片之前删除以前插入的图片,但不删除命令... >>详细