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

最新推荐文章于 2021-06-16 18:59:19 发布

alex_ywt

最新推荐文章于 2021-06-16 18:59:19 发布

阅读量1.5k

点赞数

本文链接：https://blog.csdn.net/alex_ywt/article/details/47666677

版权

本文介绍如何通过代码实现快速在PPT第一页中插入多个图片，图片按照统一大小以矩形网格布局排列。适用于需要批量处理PPT图片分布的情况。

摘要由CSDN通过智能技术生成

最近有学生问到，能不能快速的向PPT一个页面里插入很多图片，并让它们按统一大小的矩形排布到页面上。我写了，以下代码可以在第1页中按照指定横向和纵向矩形数目，填充指定路径下的图片。

Sub LoadPicToShape()
	Dim mPageWidth As Double, mPageHeight As Double
	Dim X_Count As Integer, Y_Count As Integer
	Dim mShapeWidth As Double, mShapeHeight As Double
	Dim mShape As Shape
	Dim mPicPath As String, mPicName As String

	'清除所有第1页上的所有形状

	Do Until ActivePresentation.Slides(1).Shapes.Count = 0
		ActivePresentation.Slides(1).Shapes(1).Delete
	Loop

	mPageWidth = ActivePresentation.PageSetup.SlideWidth '获取页面宽度
	mPageHeight = ActivePresentation.PageSetup.SlideHeight '获取页面高度

	'这2个参数可以自己调整
	X_Count = 10: Y_Count = 6 'X方向图片数量，Y方向图片数量
	mShapeWidth = mPageWidth / X_Count: mShapeHeight = mPageHeight / Y_Count '图片形状的宽度和高度

	'指定图片所在文件夹路径，并开始获取第1张jpg图片名称
	mPicPath = "E:\Office培训\素材\图片"
	mPicName = Dir(mPicPath & "\*.j