发布时间:2023-11-20 14:39来源:www.sf1369.com作者:宇宇
access的单元格?
数据表视图下是无法显示出图片来的。
只有在单个窗体、连续窗体或分割窗体视图下,才能显示出在ole型字段中保存的图片。
添加方法为:插入对象、Bitmap Image、paset from、选择图片、exit and return to document
如果直接插入图片,图片总是在表格的上面,可以用“格式”菜单—“工作表”—“背景”—然后选择你要的图片就可以了,不过呢这种方法插入的图片默认状态下是不打印了来的,而且还没有办法调整图片的位置和大小。
比如你在SHEET1工作表批量插入图片,b列是图片名称,把在E盘下照片文件夹中对应名称图片插入到D列,按ALT+F11打开VBA,插入---模块---把下面代码复制进去。
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, 2) '从第二列(即B列)得到图片名称,并以此名查找图片
wj = e:\照片 & \ & na & .jpg '图片文件存储的路径与格式(.jpg)
If Dir(wj) <> Then
Cells(i, 4).Select '图片需要插入到第四列(即d列)
ActiveSheet.Pictures.Insert(wj).Select
Set rng = Cells(i, 4) '根据单元格的大小调整图片
With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1
End With
End If
Next
MsgBox 图片插入完毕
End Sub
退出VBA,在工具---宏---选择---批量插入图片()---执行。
你试试选择 插入--图片--剪切画/来自文件都可以