alex_ywt的博客

原创 PPT自动载入图片并矩阵分布

最近有学生问到，能不能快速的向PPT一个页面里插入成百张图片，并让它们按统一大小的矩形排布到页面上。我写了，以下代码可以在第1页中按照指定横向和纵向矩形数目，填充指定路径下的图片。 Sub LoadPicToShape() Dim mPageWidth As Double, mPageHeight As Double Dim X_Count As Integer, Y_Count As In