Microsoft PowerPoint サンプル プレゼンテーションの作成

説明

コンピュータで実行中のプロセスに関する情報を取得し、Microsoft PowerPoint プレゼンテーションとして保存するデモ スクリプトです (プロセスごとに 1 枚のスライドを使用します)。このスクリプトには、C:\Program Files\Microsoft Office\Templates\Presentation Designs\Globe.pot という名前の PowerPoint テンプレートと C:\Scripts という名前のフォルダ (プレゼンテーションを保存するフォルダ) が必要です。

サポートするプラットフォーム

スクリプト コード

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
objPresentation.ApplyTemplate("C:\Program Files\Microsoft Office\Templates\Presentation Designs\Globe.pot")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process")

For Each objProcess in colProcesses
    Set objSlide = objPresentation.Slides.Add(1,2)
    Set objShapes = objSlide.Shapes

    Set objTitle = objShapes.Item("Rectangle 2")
    objTitle.TextFrame.TextRange.Text = objProcess.Name

    strText = "Working set size: " & objProcess.WorkingSetSize & vbCrLf
    strText = strText & "Priority: " & objProcess.Priority & vbCrLf
    strText = strText & "Thread count: " & objProcess.ThreadCount & vbCrLf

    Set objTitle = objShapes.Item("Rectangle 3")
    objTitle.TextFrame.TextRange.Text = strText
Next

objPresentation.SaveAs("C:\Scripts\Process.ppt")
objPresentation.Close
objPPT.Quit

免責事項

本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは、何等保障もない現状有姿のままで提供されるものです。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。お客様がこのサンプル スクリプトおよびドキュメントの運用または機能から受けた影響については、お客様が負うものです。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも一切責任を負いません。

ページのトップへ