파워포인트 VBA 매크로 생성기 (Copilot 포함)

Sub는 슬라이드_생성() Dim pptPres As Presentation Dim sld As Slide Dim idx As Integer Dim 제목 As String Dim 본문 As String Set pptPres = ActivePresentation ' [TOPIC] 관련 슬라이드 5개 생성 (예시: 인공지능 기초) ' 각 슬라이드: 제목 + 짧은 텍스트 idx = 1 제목 = "인공지능 정의" 본문 = "AI는 컴퓨터 시스템이 인간의 지능적 작업을 모방하는 기술입니다. - 핵심: 학습, 추론, 인식" Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = 제목 sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 100).TextFrame.TextRange.Text = 본문 idx = 2 제목 = "머신러닝 개요" 본문 = "데이터에서 패턴을 학습하여 예측하는 알고리즘. - 지도/비지도/강화 학습으로 분류됨" Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = 제목 sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 100).TextFrame.TextRange.Text = 본문 idx = 3 제목 = "딥러닝 원리" 본문 = "다층 신경망을 사용한 표현 학습. - CNN, RNN, Transformer 등 구조 활용" Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = 제목 sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 100).TextFrame.TextRange.Text = 본문 idx = 4 제목 = "자연어 처리 (NLP)" 본문 = "텍스트와 음성 데이터를 이해하고 생성하는 기술. - 챗봇, 번역, 감성 분석 등 응용" Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = 제목 sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 100).TextFrame.TextRange.Text = 본문 idx = 5 제목 = "AI 윤리와 미래" 본문 = "편향성, 프라이버시, 일자리 변화 등 고려. - 책임 있는 AI 개발 필요" Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = 제목 sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 100).TextFrame.TextRange.Text = 본문 MsgBox "5개의 슬라이드가 생성되었습니다." End Sub