作成Powerpoint/基調講演プレゼンテーションscriptability?

Question

最近私の作成PowerPointるようになります。ましては、そのパワーポイントそれと同じデザインで異なる番号を設定し、異なる数字を生成するために使用されるPowerPoint棒グラフ/円グラフですね。(あるこの円グラフェが挿入され、オプションデザインを変更する場合には、入力の一部のexcelシートを使用するポップアップします).

ということかなっているこの100社ないようなものを、ンクを表示しております。すべての価値観の違いは、パワーポイントの作成なんだか?をご提供できますデザインの拠点であるだけに、変化の動的価値もraster).

こんな質問ものためのPowerPoint:いうことを基調としては、自動化グラフ棒グラフセットの場所に番号を静置してテキスト)、そしています。

編集:ていることを知っているPowerPointグラフ/バーグラフから発生するXxcelスプレッドシート.が約3これらのプレゼンテーションのその他の価値観の変化の静的位置に、100ぐらいます。いるスクリプトの全てまたはの大半がすでに使用されています。

編集:パワーポイントは、2007年には最新版ます。優先出法のスクリプティングとの基調講演いただくとAppleScriptでは、PowerPoint、2007年にはPython/Djangoまたはマクロです。

Answer 1

ますが、数日信ボタンをクリックしてくださいが出ます。こちらは、迅速、効率的な方法でうまいます。

1. を作成したマクロの有効なトークをしました。
2. を円グラフの 最初のスライドの挿入図 コマンドのオリジナルのデコレーションExcelす オープン。コラムの中に 水平方向（カテゴリー）軸 休業とする(すなわち1Qtr2Qrtます。の 伝説のエントリはシリーズ）軸, 拡大数の列を追加。確保のたカラム名が異なります。
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、それでも大丈夫で選択の図では、 図ツール | デザイン | 選択データ および（お客様のデータセットとしての全体ます。