本章主要讲如何将图片导入Excel工作表，统一格式大小。

在一些信息管理中，图片也有广泛的应用。

尤其是个人信息管理中的照片或者设备仪器管理中的一些设备图片。

其实任何需要图文并茂的信息表都需要处理图片。

将图片导入表格

应该是很简单的操作。通常，在菜单栏中插入一个项目会有一些指导提示。

这样有个问题，就是插入的图片大小是默认大小，不会有自己想要的那么大。

那么问题来了，如果我们要插入100张或者更多的图片，那么修改每张图片的大小就不方便了。

当然也可以全选，统一修改。但是还会有另外一个问题，定位。

修改后的图片没有保存在我们想要的位置。

这是个大麻烦。如果每张修改一次，工作量就变成一天。

vba不一样。不管你有多少张图片，你只需要几行代码就可以解决，时间基本上很少。你几乎不能考虑需要多长时间，因为当你考虑的时候，任务已经完成了。

上图是一个操作例子。

一个按钮，外加两个文本框。

文本框自定义图片的高度和宽度。

导入的图片会自动适应表格大小。

要问怎么做，下面是基本思路。

键码，就一行

添加一张图片

ActiveSheet.Shapes.AddPicture FileName, True, True, Left, Top, Width,Heigh

参数解释

代码

代码很多，大部分是外围环境下一些错误处理机制的指导。

执行过程中会出现很多问题，这是不可避免的。由于不同的软件平台和软件系统环境，存在许多不可预测的问题。

Windows就是这样，既给了我们最大的自由和便利，也给了我们最多的bug。

至于选择，我们各自选择。

但是，为了实现一些可以触摸到的梦想，一些可以接受的问题还是需要接受的。

将图片地址放入一个数组，然后操作该数组并将其添加到相应的表中。

图片地址数组函数

Private Function getPicUrl()Dim Gurl As String, Parr(), pi As Integer, i As IntegerWith Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "图片文件", "*.jpg;*.gif" .InitialFileName = ThisWorkbook.Path & "picgif" If .Show = -1 Then i = .SelectedItems.Count ReDim Parr(0 To i) For pi = 1 To i Parr(pi) = .SelectedItems(pi) Next pi getPicUrl = Parr Exit Function End IfEnd WithReDim Parr(0)Parr(0) = "No"getPicUrl = ParrEnd Function