PowerPointで指定した名前のShapeをスライド全体にリサイズするマクロ

ppt-resize-shapes-to-fullsize.bas

Sub ResizeShapesToFullsize()
	Dim w As Integer
	Dim h As Integer
	w = ActivePresentation.PageSetup.SlideWidth
	h = ActivePresentation.PageSetup.SlideHeight

	Dim sld As Slide
	Dim sh As Shape

	targetNameArr = Array("Picture 6", "Content Placeholder 6")
	
	For Each sld In ActivePresentation.Slides
		For Each sh In sld.Shapes
			For Each targetName In targetNameArr
				If sh.Name = targetName Then
					sh.Width = w
					sh.Height = h
				End If
			Next
		Next
	Next
End Sub