13518219792
这是因为你的图片放置方式不是嵌入型，而是其他方式
创新互联专注于榕城企业网站建设,自适应网站建设,成都做商城网站。榕城网站建设公司,为榕城等地区提供建站服务。全流程按需网站建设，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
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
点击菜单--项目--WindowsApplication属性（工程属性），在打开的属性窗口，选择”资源“页，点击菜单--添加资源--添加现有文件，将硬盘上图片文件添加进资源文件，文件名自动变为资源名。
在代码中，需要改变按钮图像时，用：
Button1.Image = My.Resources.FACE01 'FACE01是我的资源文件名，你要改成你自己的
你要确定每个状态的大小是一样的才可以：
Public Bitmap CutImage(ByVal start As Point, ByVal end As Point, ByVal b As Bitmap)
Dim f As New Bitmap(end.X - start.X + 1, end.Y - start.Y + 1)
For i As Integer = start.X To end.X + 1
For j As Integer = start.Y To end.Y + 1
Dim c As Color = b.GetPixel(i, j)
f.SetPixel(i - start.X, j - start.Y, c)
Next
Next
Return f
End Sub
这个函数就可以用于裁剪图像，返回裁剪后的图像，start是开始裁剪的位置，end是结束裁剪的位置，b是要裁剪的图像，假如你的这些按钮每个宽30，高20，你就可以用
PictureBox1.Image = CutImage(New Point(第n - 1个按钮 * 30, 0), New Point(第n个按钮 * 30, 20), 按钮存在的位图)
