用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) 相片的文件名,如果相片用B列的姓名命名也可以的
'要有相片路径+名称+后缀
Next i
End Sub
注意:图片格式要统一(如果是jpeg格式,你可修改下代码中格式),代码中插入的位置你也可以修改。另外,导入的相片,也许并不是你想要的尺寸,这时CTRL+G定位--对象-改变相片尺寸,以便统一尺寸。
设置excel的自动保存为了在意外发生时,把用户的损失降至最小,大多数应用软件都提供了“自动保存”功能。也许你也想要设置excel的“自动保存”功能,可是在excel中,当你也像设置word的“自动保存”功能那样,单击“工具”菜单的“选项”命令,却怎么也找不到“保存”选项卡了。先别着急!如要让excel自动保存工作簿,
请按下述步骤 *** 作:
1、启动excel,单击“工具”菜单中的“加载宏”命令,系统d出“加载宏”对话框,在“当前加载宏”列表框中,找到并选中“自动保存”复选框,单击[确定]按钮。
2、单击“工具”菜单中的“自动保存”命令,系统d出“自动保存”对话框。
3、选中“自动保存时间间隔”复选框(清除该复选框后,excel将停止自动保存工作簿),在“分钟”框中,输入希望excel自动保存工作簿的时间间隔,如果你使用的是excel
97,则可选择的时间范围在1到120分钟之间,如果你使用的是excel
2000,则时间范围没有上限的限制。在这里,我们最好清除“保存前提示”复选框,否则excel将在每次自动保存前显示提示信息,由用户进行选择确认后,才能继续编辑,影响了工作效率。
4、单击[确定]按钮。
这以后,如果电脑死锁或意外断电,我们就可从excel自动保存的工作簿中,挽救出某些信息,把损失降到最小。
最后强调一点,就是“自动保存”不能取代“保存”命令,在完成工作时,可千万别忘记了进行“保存”文件的 *** 作,否则后悔药可不是好吃得噢!
方法/步骤打开需要插入对象文件的Excel表格
用鼠标单击要插入对象文件单元格,然后依次点击"插入"菜单--"对象",窗口会自动d出"对象"对话框,
在"对象"对话框中选择"由文件创建"选项卡,单击"浏览",选择需要插入的对象文件,此处我们先选择一个Excel文件插入。
选择"对象"对话框中的"显示图标",点击"更改图标",窗口会自动d出"更改图标"对话框。
将"图标标题"中的文件路径及文件扩展名删掉,只保留文件名称,如下图所示。然后点击"确定"按钮。
在"对象"对话框中点击"确定"按钮,Excel文件就插入完毕了。在阅读时,只需双击这个Excel文件,就可以将之打开了。
7
按照同样的方法,我们还可以在Excel表格中插入Word或PPT等文件。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)