5

最近、私は企業向けのPowerPointプレゼンテーションを作成しています。私は主にPowerPointでこれを行っています。基本的に、それらは同じデザインで作成されますが、設定された場所で異なる番号が使用され、PowerPointの棒グラフ/円グラフのものを生成するために異なる番号が使用されます。（基本的に、挿入するとこれらの円グラフオブジェクトがあり、デザインを変更するオプションがあり、ポップアップするいくつかのExcelスプレッドシートに数値を入力します）。

100社でこれを行っているとしましょう。必要なすべての異なる値を指定して、何らかの方法でパワーポイントを作成する方法はありませんか？デザインベースを提供できます。必要なのは、動的な値を変更することだけです（ラスターはありません）。

これはPowerPointにとって必ずしも問題ではありません。Keynoteでこれを行うことができれば（たとえば、円グラフ、棒グラフを自動化し、数字と静的テキストで場所を設定する）、それも機能します。

編集：PowerPointの円グラフ/棒グラフがXxcelスプレッドシートから生成されることを知っていると述べました。私のプレゼンテーションには、これらのうち約3つがあり、静的な位置にある他の変化する値とともに、100程度のプレゼンテーションにまたがっています。プロセスのすべてまたは大部分をスクリプト化することを検討しています。

編集：PowerPoint2007または最新バージョンのKeynoteを使用します。Keynoteを使用したスクリプトの推奨方法は、Python/DjangoまたはマクロのいずれかであるPowerPoint2007を使用したAppleScriptです。

4

1 に答える 1

2

申し訳ありませんが、これはあなたに戻るのに数日かかりました、問題を解決しなければなりませんでした。これがあなたが求めていることをするための迅速で効率的な方法です。

  1. マクロ対応のPowerPointを作成します。
  2. リボンの[挿入]|[グラフ]コマンドを使用して、最初のスライドに単一の円グラフを作成します。Excelが開きます。列の水平（カテゴリ）軸はそのままにします（つまり、第1四半期、第2四半期など）。凡例エントリ（シリーズ）軸で、いくつかの列を展開し、さらにデータを追加します。列名が一意であることを確認してください。
  3. Excelを閉じる
  4. Alt+F11を押してVBEに移動します。
  5. 以下のコードをコピーして新しいモジュールに貼り付け、次の変数を変更します。chartTemplatePath必要に応じて、sc.Name選択した別の変数に変更します。
  6. 実行するには、サブルーチンのF5をクリックします。これで、列と同じ数のグラフスライドが作成されます。

。

Sub CreateChartDecksandSave()
    Dim chartTemplatePath As String
    chartTemplatePath = "C:\Temp\"

    Dim myPPT As Presentation
    Set myPPT = ActivePresentation

    Dim mainChart As Chart
    Set mainChart = myPPT.Slides(1).Shapes(1).Chart

    Dim scCount As Integer
    scCount = mainChart.SeriesCollection.Count

    Dim sc As Series

    For i = 1 To scCount
        Set sc = mainChart.SeriesCollection(1)
        myPPT.SaveCopyAs (chartTemplatePath & sc.Name & ".pptx")
        sc.Delete
    Next
End Sub

これを使用していて、グラフデータがメインPPTから消える場合は、問題ありません。グラフを選択して、[グラフツール]、[グラフツール]の順に移動します。デザイン| [データ]を選択し、テーブル全体としてデータセットを再選択します。

于 2010-01-11T00:09:20.163 に答える