もしもマクロ(VBA)が使えたら？その2【パワポとの連携】

マクロ(VBA)が使える人と使えない人の比較動画。
比較的短尺です。
その1「パワポとの連携」編。

---

どんな動画？

ぶちょう「50人分の名札をパワポで作ってくれ！」
魔理沙「50人！うーん！気合でいけそう！」
霊夢「マクロ作っとこ！」

翌日
ぶちょう「あと200人追加で！」

マクロが使える霊夢と、使えない魔理沙を比較してみましょう。

※Excelの神髄さんのサイトを参考にして作ってみました。

動画で使ったコード

Option Explicit

Sub PPT複製()

    Dim ppApp As Object
    Set ppApp = CreateObject("PowerPoint.Application")
    Dim ppPt As Object: Set ppPt = ppApp.ActivePresentation
    Dim ppSlide As Object
    Dim ppShape As Object
    
    On Error Resume Next
    Dim i As Long
    Dim cnt As Long
    For i = 2 To 51
        cnt = ppPt.Slides.Count
        ppPt.Slides(2).Duplicate.MoveTo cnt + 1
        ppPt.Slides(cnt + 1).Shapes("name1").TextFrame.TextRange = Cells(i, 2)
        ppPt.Slides(cnt + 1).Shapes("name2").TextFrame.TextRange = Cells(i, 3)
        ppPt.Slides(cnt + 1).Shapes("血液型").TextFrame.TextRange = Cells(i, 4)
    Next i
        
End Sub

---

※なんでOn Error Resume Nextを入れたかは思い出せない…。

あとがたり

おはこんばんちは。uぷ主です。
「もしもマクロ(VBA)が使えたら」シリーズの第二作目となります。

パワポとの連携が、初見で「おおっ！すげえっ！」ってなりそうなので…
この後はこのネタばっかやってます。

案の定…どんどん再生回数は落ちていき…
次第には…おっふ。