On Error Resume Next '设置错误处理
Application.ScreenUpdating = False '关闭屏幕刷新
Dim rngTemp As Range, k As Range, picPath$, picTemp As Picture
'设定图片名称所在单元格区域
Set rngTemp = Application.InputBox("选择图片名称所在单元格区域：", "选择单元格", Type:=8)
For Each k In rngTemp '循环
插入
图片
k.Offset(0, 1).Select '选择
插入
图片的位置
ActiveSheet.Pictures(k & k.Row).Delete '删除单元格
中
原来的图片
picPath = ThisWorkbook.Path & "\" & Trim(k) & ".jpg" '定义
插入
图片的地址
Set picTemp = ActiveSheet.Pictures.Insert(picPath) '
插入
图片
picTemp.Name = k & k.Row '设定所
插入
图片的名称
picTemp.Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置
With picTemp.ShapeRange
.LockAspectRatio = msoFalse '取消图片纵横比锁定
.Height = Selection.Height '设置所
插入
图片的高度与单元格的高度相等
.Width = Selection.Width '设置所
插入
图片的宽度与单元格的宽度相等
End With
Set picTemp = Nothing '重置图片
对象
Application.ScreenUpdating = True '打开屏幕刷新
End Sub
目前，传统的二层C/S（Client/Server）结构应用软件已发展为多层结构的分布式应用
系统[2]。为了改善系统的工作效率以及提高系统的伸缩性，很多软件开发人员都把服务器
上的一些基本数据分发到各个客户机上。这种工作模式的优点是显著的，因为它减少了那
些非实时数据（如员工表、产品数据表等）在网络上的流动，并且在网络瘫痪时，各个客
户机仍然可以维持部分的工作。同时，这种模式需要定时在客户机与服务器之间进行数据
更新，为了更有效地进行数据更新，我们设想在客户机上创建类
OLE
对象
来自 Office 和基于 Windows 的程序的图像、文档、图形和其他
对象
最多可存储 2GB 数据（此大小限制适用于所有 Access 数据库）。请记住，添加 2GB 数据会导致数据库操作缓慢。OLE
对象
字段创建原始文档或其他
对象
的位图图像，然后在数据库的表字段以及窗体或报表控件
中
显示
该位图。
为了让 Access 呈现这些图像，必须在运行数据库的计算机上注册 OLE ...
OLE Object Linking and Embedding，
对象
连接与嵌入，简称OLE技术。OLE 不仅是桌面应用程序集成，而且还定义和实现了一种允许应用程序作为软件“
对象
”(数据集合和操作数据的函数)彼此进行“连接”的机制，这种连接机制和协议称为部件
对象
模型。 OLE 是在客户应用程序间传输和共享信息的一组综合标准。允许创建带有指向应用程序的链接的混合文档以使用户修改时不必在应用程
