作者：乔山办公网日期：
返回目录：excel表格制作
具体方式如下：
1、点击插入选项卡，点击对象，弹出来对象对话框，选择由文件创建选项卡。点击浏览。
2、在浏览对话框选择你要插入的文件，点击插入
3、勾选显示为图标。点确定
4、最后效果如下图。
用vb代码解决，代码如下:
Sub 批量导入相片()
Dim i, myPath$
myPath = ThisWorkbook.Path & "\" '获取当前文件的路径
For i = 2 To 11
Range("C" & i).Select
ActiveSheet.Pictures.Insert(myPath & Range("A" & i) & ".jpg").Select
'在选中的位置插入图片
'myPath 相位的路径
'Range("A" & i) 相片的文件名，如果相片用e799bee5baa6e79fa5e98193e78988e69d83363B列的姓名命名也可以的
'要有相片路径+名称+后缀
Next i
End Sub
注意:图片格式要统一(如果是jpeg格式，你可修改下代码中格式)，代码中插入的位置你也可以修改。另外，导入的相片，也许并不是你想要的尺寸，这时CTRL+G定位--对象-改变相片尺寸，以便统一尺寸。
在word文件中知把插入的excel表格单独复制保存起来方法如下：
启动word软件，选中插道入的excel表格，复制粘贴到excel工作表区域，将excel工作表保存就是实现了内把插入的excel表格单独复容制保存。
word中插入excel表格等文件，直接选中表格，复制、粘贴就实现了将把插入的excel表格单独复制保存。
Sub 宏来1()
ActiveSheet.OLEObjects.Add(Filename:= _
"E:\baiduyun\test.xls", Link:=False, _
DisplayAsIcon:=False).Select
End Sub
可以自用百vba来插入度