PowerPoint VBAマクロジェネレーター with Copilot
フリーのプロンプト百科事典 Wikiprompt より
2023年11月21日
PowerPoint VBAマクロジェネレーター with Copilot Copilotにトピックを調査させ、指定されたスライド数を含むPowerPointマクロを生成するよう指示するプロンプトテンプレート。各スライドにはタイトルと短いテキストが含まれる。
関連メディア
プロンプト内容保存
🌐
Sub CreateTopicSlides()
Dim pptPres As Presentation
Dim sld As Slide
Dim idx As Integer
Dim slideTitle As String
Dim slideText As String
Set pptPres = ActivePresentation
' --- Slide 1 ---
idx = pptPres.Slides.Count + 1
slideTitle = "はじめに"
slideText = "このプレゼンテーションでは、[TOPIC]の基本概念と主要な応用について概説します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 2 ---
idx = pptPres.Slides.Count + 1
slideTitle = "背景と動機"
slideText = "[TOPIC]が注目される理由、関連する課題、および解決の必要性を説明します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 3 ---
idx = pptPres.Slides.Count + 1
slideTitle = "主要な定義"
slideText = "[TOPIC]の核心的な用語と定義を整理し、共通理解を確立します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 4 ---
idx = pptPres.Slides.Count + 1
slideTitle = "歴史的発展"
slideText = "[TOPIC]の進化の過程を時系列で追い、重要な転換点を紹介します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 5 ---
idx = pptPres.Slides.Count + 1
slideTitle = "現在の応用例"
slideText = "実社会や産業界における[TOPIC]の具体的な適用事例を列挙します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 6 ---
idx = pptPres.Slides.Count + 1
slideTitle = "利点と限界"
slideText = "[TOPIC]がもたらす利点と、現時点での制約や課題を比較検討します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 7 ---
idx = pptPres.Slides.Count + 1
slideTitle = "将来の展望"
slideText = "[TOPIC]の今後の発展方向、予測される技術革新、および社会的影響を考察します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 8 ---
idx = pptPres.Slides.Count + 1
slideTitle = "まとめ"
slideText = "[TOPIC]の要点を再確認し、今後の学習や実践に向けた推奨事項を提示します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 9 ---
idx = pptPres.Slides.Count + 1
slideTitle = "参考文献"
slideText = "[TOPIC]に関する主要な文献、論文、およびオンラインリソースを紹介します。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
' --- Slide 10 ---
idx = pptPres.Slides.Count + 1
slideTitle = "質疑応答"
slideText = "ご質問や議論の時間を設け、[TOPIC]に関する理解を深めます。"
Set sld = pptPres.Slides.Add(idx, ppLayoutTitleOnly)
sld.Shapes.Title.TextFrame.TextRange.Text = slideTitle
sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 120, 600, 200).TextFrame.TextRange.Text = slideText
MsgBox "10枚のスライドを作成しました。", vbInformation
End Sub
ログインして完全なプロンプトを表示
次で続行:
ログインすると、次に同意したことになります： 利用規約 と プライバシーポリシー
使い方
このプロンプトは productivity 向けに設計されています。上の内容をコピーして、お好みの AI ツールに貼り付けてください。
最良の結果を得るには、プレースホルダー（角括弧や大文字で示された部分）を具体的な要件に置き換えてください。
ノート
0 件のコメント