★マークのところはご自分で変えてください。 Sub 画像複数挿入2000_2() Dim cntL As Integer, cntT As Integer Dim flgAspect As Boolean Dim SL As Single, SR As Single, ST As Single, SB As Single Dim ML As Single, MT As Single Dim xlApp As Object Dim dlgOpen As Variant Dim myPre As Presentation Dim Sld As Slide Dim n As Long Dim i As Integer, j As Integer Dim sldWidth As Single, sldHeight As Single Dim realWidth As Single, realHei
![パワーポイントで画像を一括挿入する方法について - OKWAVE](https://cdn-ak-scissors.b.st-hatena.com/image/square/a3202632a5b19efa6d7dbcca644fc13bfa3453dc/height=288;version=1;width=512/https%3A%2F%2Fgazo.okwave.jp%2Fokwave%2Fspn%2Fimages%2Flogo%2Ffacebook_okwave.jpg)