cl.pocari.org - PowerPoint のスライド毎に画像を貼り付けていくマクロPowerPoint のスライド毎に画像を貼り付けていくマクロ 2007-01-27-1 数百枚ある写真を 1 枚 1 枚 PowerPoint に貼り付けていくという気の遠くなる作業を頼まれたので作成． Option Explicit Public Sub addPhotoParPage() Dim i As Integer Dim strPath As String Dim objFileSystem As Object Dim objFolder As Object Dim objFile As Object strPath = BrowseForFolder() If strPath = "" Then Exit Sub End If Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFold
