me.backgroundimage=image.fromfile(apppath+"picture")
成都创新互联主营桥东网站建设的网络公司,主营网站建设方案,app软件定制开发,桥东h5成都微信小程序搭建,桥东网站营销推广欢迎桥东等地区企业咨询
主要的错误是你的"picture"这里错了，apppath后面就应该接你要载入的图片的名字，比如说是02.jpeg，那就应该是
me.backgroundimage=image.fromfile(apppath+"\02.jpeg")，注意要加\和图片的后缀名。
这是因为你的图片放置方式不是嵌入型，而是其他方式
WORD里如果希望跟处理文字一样对其进行各种属性处理，只能是嵌入型才可以
右键单击图片属性 环绕方式改成 嵌入型就可以了
很简单的方法，貌似没有。这个需要自己写很多代码：
用一个ListView控件。
判断滚动条当前所显示的图片集合，获取它们的物理路径。
用Bitmap.FromImage方法把这些图片读出来，
然后获取缩略图，
把缩略图用Graphics.DrawImage()绘制出来。
我可以提供Bitmap如何获取缩略图的方法：
''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary
Public Function ThumbnailCallback() As Boolean
Return False
End Function
''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary
Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image
Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)
Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)
End Function
'先建立一个bitmap对象，指向图像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'释放bitmap对象
pic.Dispose()
'现在即可对文件进行操作
会用VBA吗，先在word里面插入图片录制宏，然后将录制的VBA代码修改成.net代码就可以了
INSERT INTO 语句是插入新的行
如果你希望对已经存在的记录某些字段进行更改，应该用：
Update 语句
具体格式是：
UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值
你修改这一句：
oleCmd.CommandText = "INSERT INTO TestImg (img) VALUES (@img)"
为：
oleCmd.CommandText = "UPDATE TestImg Set img = @img Where ID =1"
