excel快速插入图片并调整大小的方法如何在excel中插图片 _大小

本章主要讲如何将图片导入Excel工作表，统一格式大小。
在一些信息管理中，图片也有广泛的应用。
尤其是个人信息管理中的照片或者设备仪器管理中的一些设备图片。
其实任何需要图文并茂的信息表都需要处理图片。

将图片导入表格应该是很简单的操作。通常，在菜单栏中插入一个项目会有一些指导提示。
这样有个问题，就是插入的图片大小是默认大小，不会有自己想要的那么大。
那么问题来了，如果我们要插入100张或者更多的图片，那么修改每张图片的大小就不方便了。
当然也可以全选，统一修改。但是还会有另外一个问题，定位。
修改后的图片没有保存在我们想要的位置。
这是个大麻烦。如果每张修改一次，工作量就变成一天。
vba不一样。不管你有多少张图片，你只需要几行代码就可以解决，时间基本上很少。你几乎不能考虑需要多长时间，因为当你考虑的时候，任务已经完成了。

上图是一个操作例子。
【excel快速插入图片并调整大小的方法如何在excel中插图片】一个按钮，外加两个文本框。
文本框自定义图片的高度和宽度。
导入的图片会自动适应表格大小。
要问怎么做，下面是基本思路。
键码，就一行
添加一张图片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 & "\pic\gif\" 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