作成Powerpoint/基調講演プレゼンテーションscriptability?
-
18-09-2019 - |
質問
最近私の作成PowerPointるようになります。ましては、そのパワーポイントそれと同じデザインで異なる番号を設定し、異なる数字を生成するために使用されるPowerPoint棒グラフ/円グラフですね。(あるこの円グラフェが挿入され、オプションデザインを変更する場合には、入力の一部のexcelシートを使用するポップアップします).
ということかなっているこの100社ないようなものを、ンクを表示しております。すべての価値観の違いは、パワーポイントの作成なんだか?をご提供できますデザインの拠点であるだけに、変化の動的価値もraster).
こんな質問ものためのPowerPoint:いうことを基調としては、自動化グラフ棒グラフセットの場所に番号を静置してテキスト)、そしています。
編集:ていることを知っているPowerPointグラフ/バーグラフから発生するXxcelスプレッドシート.が約3これらのプレゼンテーションのその他の価値観の変化の静的位置に、100ぐらいます。いるスクリプトの全てまたはの大半がすでに使用されています。
編集:パワーポイントは、2007年には最新版ます。優先出法のスクリプティングとの基調講演いただくとAppleScriptでは、PowerPoint、2007年にはPython/Djangoまたはマクロです。
解決
ますが、数日信ボタンをクリックしてくださいが出ます。こちらは、迅速、効率的な方法でうまいます。
- を作成したマクロの有効なトークをしました。
- を円グラフの 最初のスライドの挿入図 コマンドのオリジナルのデコレーションExcelす オープン。コラムの中に 水平方向(カテゴリー)軸 休業とする(すなわち1Qtr2Qrtます。の 伝説のエントリはシリーズ)軸, 拡大数の列を追加。確保のたカラム名が異なります。
- 近Excel
- Alt+F11へのVBE.
- コピー/ペーストは、以下のコードを新たに
モジュールの変更は以下の
変数:
chartTemplatePath
および、 必要な場合にも、sc.Name
, にも 他のものを目指します。 - をクリックし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、それでも大丈夫で選択の図では、 図ツール | デザイン | 選択データ および(お客様のデータセットとしての全体ます。
所属していません StackOverflow