Excel实战技巧4：创建Excel相册

 

我们可以在Excel工作表中放置图片，并且将图片按照行列整齐排列，如图1所示。

 图1

 

创建用来设置图片的用户窗体

首先，创建一个用户窗体，用来访问放置图片的文件夹，以及设置图片在工作表中放置的列数和每张图片占据的单元格数。

用户窗体界面如下图2所示。

 图2

 

编写代码

声明模块级变量FoundFiles，用来存放找到的图片文件路径和名称。

Dim FoundFiles As NewCollection

 

下面的GetAllFilesInDir过程获取指定文件夹中指定后缀名的所有文件。如果参数blnSubFolders设置为真，则包括子文件夹中指定后缀名的文件。

 

下面的DoesFileExist函数判断指定的文件路径是否存在并返回True或False。

 

下面是单击用户窗体按钮“创建相册”后执行的过程，用来新建一个放置图片的工作簿并在其工作表中放置提取的图片文件。

 

下面的过程初始化用户窗体，并设置默认的参数。

 

至此，用户窗体设置及相应的代码编已完毕。

运行用户窗体，如下图3所示。

 图3

 

你可以在界面中输入存放图片的文件路径，选择是否要获取该文件夹中的子文件夹中的图片，指定图片后缀名，并设置每行放置的图片数以及每张图片占据的工作表列数。

按默认设置创建的图片相册如本文开头的图1所示。

相关文章：

Excel实战技巧1：根据单元格内容创建自已的快捷菜单

Excel实战技巧2：创建动态命名区域的3个公式

Excel实战技巧3：实现智能输入

---

 

本文属原创文章，转载请联系我（[e-mail]）或者注明出处。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。