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

[palmyra]

VBA

[j010eb]

すげー！