请问如何用Excel vba在单元格中插入照片

在Excel的单元格中，已输入人物的姓名，并且，在姓名的下面，留有空的单元格待插入相应的图片。如下图一样。比如，B1是姓名，而B3则是要根据张三这个姓名，自动将张三这个人的照片插入到B3中。其它以此类推。  这得使用VBA来完成。同时，人物的照片所在的文件夹，和Excel工作薄，在相同的...

粘贴图片，右键选择嵌入，图片即自适应单元格大小

插入---模块---将下面代码粘贴进去就行了。Sub 批量插入图片()Dim wj As String Dim rng As Range Sheets("员工档案").Select '选中要插入图片的工作表 x = [a65536].End(xlUp).Row '取得最后一行的行号 For i = 2 To x na = Cells(i, 2) '从第二列（即B列）得到员工名字，并以此...

打开excel的VB，把代码复制进去。在A列输入需要插入照片的名称，然后选定这些有名称的单元格（重点！要选定）。然后运行宏，在弹出的对话框选【否】，意思就是在名称的右边插入图片，上面的汉字应该也能看懂。然后会出来一个对话框让你选择路径，选择你放照片的那个文件夹，点击文件夹里的任意一张照片点...

1、先编制表格：2、在表格里编写触发宏代码：Private Sub Worksheet_Change(ByVal Target As Range)Dim photoname As String If Target.Row = 3 And Target.Column > 3 And Target.Column < 6 Then On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 Application.ScreenUpdating = ...

第九步，下面我们需要用VBA批量插入照片提示。找到工具栏上的【开发工具】选项卡，接着选择【查看代码】功能。第十步，在窗口的左侧找到刚才的Excel表格的【Sheet1】，然后双击，进入到代码界面后，我们将下面的代码插入进去。第十一步，代码插入好以后，我们回到Excel数据表格中，将插入了图片批注的所有...

1、打开Excel，准备好表格。2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。3、接着点击菜单栏【插入】，在其下拉菜单中，选择【模块】。4、在弹出模块编辑窗口填入代码：Sub 导入图片()Dim sp As Shape, rng As Range, rg As Range, arg As RangeFor Each sp ...

选择工作表标签，右击--查看代码，双击"thisworkbook"标签，将下面的代码拷入代码框内，关闭代码框就行了。Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Target.Activate ActiveSheet.Pictures.Insert("C:\11.gif").Select End Sub ...

ShapeRange.Width = Cells(i, 2).Width Selection.ShapeRange.Height = Cells(i, 2).Height End If Next End Sub 四、输入完成姓名后，工具－宏－宏，单击macro1，“执行”★★★注意：在执行第四步前，先将B列的单元格设置好宽度、高度。照片会自动适应B列单元格的宽度或高度 ...

图片名与工号对应的话，用循环可以一次性插入了。Sub insertPic() iPath = "D:\pic\" For i = 2 To 300'需要插入的图片数,从第二行开始算 Cells(i, 3).Select'插入位置，第三列 ActiveSheet.Pictures.Insert(iPath & Cells(i, 2) & ".jpg").Select'Cells(i,2)是与图片...