パワーポイントの勉強

参考サイト

業務で主にエクセルを使用しているのでエクセルからパワーポイントに図で貼り付けることが多いのだが、パワーポイント上で直接作成したほうがきれいに仕上がるような気がする。

No.1

No.2

No.3

新しいスライドの挿入

発表する人のノートを追加する

右下の「ノート」タブを押下。

数値の桁区切りカンマ

パワーポイントにはない。

文字の上下中央揃え

「段落」タブにある。

列の幅

テーブルレイアウト→セルのサイズ→幅

行間設定

ホーム→段落→行間→行間のオプション

書式のコピペ

余白の設定方法

右クリック→図の書式設定

セクションごとに分ける

セクションを折りたたんで移動することも可能。

ファイルの埋め込み

挿入→テキスト→オブジェクト

グラフを挿入して数値を変更する

グラフのデザイン→データの選択

エクセルのような画面が開き数値を変更したり要素を追加できる。

AIで作れそうだ

参考サイト No.1

GTPに直接プロンプト入力

なんか変になった。”\n”ってそのまま出てるんですけど。改行の意味かな?

chatGPTに作ってもらったコードはこちら。

Sub CreateAISlides()
    ' PowerPointアプリケーションを定義
    Dim pptApp As Object
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True

    ' 新しいプレゼンテーションを作成
    Dim pptPresentation As Object
    Set pptPresentation = pptApp.Presentations.Add

    ' スライド1:タイトルスライド
    Dim slide1 As Object
    Set slide1 = pptPresentation.Slides.Add(1, 1) ' ppLayoutTitle
    slide1.Shapes.Title.TextFrame.TextRange.Text = "人口知能の歴史"
    slide1.Shapes.Placeholders(2).TextFrame.TextRange.Text = "AIの進化の概要"

    ' スライド2:1950年代~1960年代
    Dim slide2 As Object
    Set slide2 = pptPresentation.Slides.Add(2, 2) ' ppLayoutText
    slide2.Shapes.Title.TextFrame.TextRange.Text = "1950年代~1960年代: AIの黎明期"
    slide2.Shapes.Placeholders(2).TextFrame.TextRange.Text = "・1950年: アラン・チューリングがチューリングテストを提案\n・1956年: ダートマス会議で「AI」という言葉が初めて使用される"

    ' スライド3:1970年代~1980年代
    Dim slide3 As Object
    Set slide3 = pptPresentation.Slides.Add(3, 2) ' ppLayoutText
    slide3.Shapes.Title.TextFrame.TextRange.Text = "1970年代~1980年代: 冬の時代"
    slide3.Shapes.Placeholders(2).TextFrame.TextRange.Text = "・資金や研究の停滞\n・エキスパートシステムの台頭と限界"

    ' スライド4:1990年代~2000年代
    Dim slide4 As Object
    Set slide4 = pptPresentation.Slides.Add(4, 2) ' ppLayoutText
    slide4.Shapes.Title.TextFrame.TextRange.Text = "1990年代~2000年代: AIの復活"
    slide4.Shapes.Placeholders(2).TextFrame.TextRange.Text = "・1997年: IBMのディープ・ブルーがチェスチャンピオンに勝利\n・機械学習とニューラルネットワークの発展"

    ' スライド5:2010年代以降
    Dim slide5 As Object
    Set slide5 = pptPresentation.Slides.Add(5, 2) ' ppLayoutText
    slide5.Shapes.Title.TextFrame.TextRange.Text = "2010年代以降: ディープラーニングとAIの進化"
    slide5.Shapes.Placeholders(2).TextFrame.TextRange.Text = "・2012年: ディープラーニング技術のブレイクスルー\n・2016年: AlphaGoが囲碁チャンピオンに勝利\n・AIの応用が多岐にわたる分野で加速"

'     保存ダイアログを表示してファイルを保存
'    Dim savePath As String
'    savePath = Application.GetSaveAsFilename(FileFilter:="PowerPoint Files (*.pptx), *.pptx")
'
'    If savePath <> "False" Then
'        pptPresentation.SaveAs savePath
'        MsgBox "プレゼンテーションが保存されました: " & savePath
'    End If
'
'     終了
'    Set pptPresentation = Nothing
'    Set pptApp = Nothing
End Sub

リボンの中に「開発」タブがない場合は「ファイル」→「オプション」→「リボンのユーザー設定」→「開発」にチェックを入れる。

次にやってみたらうまくできた。

↑上記だけだと内容がないので、スライドノートも作ってもらった。

デザインタブは何回も押下しているとどんどん新しいデザインが出てきてた。

アドインで作成してみる

デザインだけ出力された…。なぜに???

参考サイト No.2

多分有料プランでないとプレゼンテーションには変換できないっぽい。

gitmind

作り方が悪かったのか、すんごい見にくいスライドが完成した。

error: Content is protected !!
タイトルとURLをコピーしました