Excel データを PowerPoint スライドに

Question 1

次のようにしてみてください。スライド上のテキスト @COL1@ のインスタンスすべてをワークシートの値に置き換えるように、いくつかの変更を加えました。エアコードはテストされていません。

Sub CreateSlides()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Dim sCurrentText As String
Dim oSl As Slide
Dim oSh As Shape
Set WS = OWB.Worksheets(1)
Dim i As Long
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
    'Copy the first slide and paste at the end of the presentation
    ActivePresentation.Slides(1).Copy
    Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)
    sCurrentText = WS.Cells(i, 1).Value

    ' find each shape with "@COL1@" in text, replace it with value from worksheet
    For Each oSh In oSl.Shapes
      ' Make sure the shape can hold text and if is, that it IS holding text
      If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
          ' it's got text, do the replace
          With oSh.TextFrame.TextRange
            .Replace "@COL1@", sCurrentText
          End With
        End If
      End If
    Next
Next
End Sub

Answer

次のようにしてみてください。スライド上のテキスト @COL1@ のインスタンスすべてをワークシートの値に置き換えるように、いくつかの変更を加えました。エアコードはテストされていません。

Sub CreateSlides()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Dim sCurrentText As String
Dim oSl As Slide
Dim oSh As Shape
Set WS = OWB.Worksheets(1)
Dim i As Long
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
    'Copy the first slide and paste at the end of the presentation
    ActivePresentation.Slides(1).Copy
    Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)
    sCurrentText = WS.Cells(i, 1).Value

    ' find each shape with "@COL1@" in text, replace it with value from worksheet
    For Each oSh In oSl.Shapes
      ' Make sure the shape can hold text and if is, that it IS holding text
      If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
          ' it's got text, do the replace
          With oSh.TextFrame.TextRange
            .Replace "@COL1@", sCurrentText
          End With
        End If
      End If
    Next
Next
End Sub

Question 2

PowerPoint アドインExcel インポートExcelデータをPowerPointにインポートできる

何をするのか

開いているプレゼンテーションに Excel データをインポートします
。方法: PowerPoint スライドごとに 1 つの Excel 行、現在のスライドのテキストフィールドごとに 1 つのセル
複数のシートが存在する場合、データを取得する Excel シートを選択できます。
Excel ファイルの行数が PowerPoint のスライド数より多い場合は、自動的にスライドを追加できます。
行のすべてのデータを格納するのに十分なテキストフィールド（図形）がない場合に警告します。
すべてのMicrosoft Officeバージョンで動作します

使い方

ダウンロード加える
Microsoft Officeアドインフォルダに保存します。
ヒント: Win+を押してR入力します。%AppData%\Roaming\Microsoft\アドイン
PowerPointを開いてアドインを有効にします_{Excel 2003: メニューバー → ツール → アドイン
Excel 2007: スタートボタン → Excel オプション → アドイン → ドロップダウン: Excel アドイン → 実行
Excel 2010: ファイルタブ → オプション → アドイン → ドロップダウン: Excel アドイン → 移動}
新しいメニューバーのエントリがポップアップ表示されます
新しいExcelデータのインポートボタンをクリックすると、Excelファイルを選択するためのファイルダイアログがポップアップ表示されます。
十分なテキストフィールドがある場合は、アドインがそれらを入力します。

この短編を見るimgur アルバムアドインを説明する

注記： コードをカスタマイズしたい場合はレジストリキーを追加するアドインコードを見るには、
ソースコードをご覧ください。pastebinで閲覧

Answer