("PowerPoint.Application")WithpptApp' 新しいプレゼンテーションを作成するSetppt=.Presentations.Add' 空白のスライドを追加するSetnewSlide=ppt.Slides.Add(1,12)' ppLayoutBlank = 12' Excelのアクティブシートから範囲をコピーするActiveSheet.Range("A1:E10").Copy' パワーポイントに画像と...