.pptのスライドから情報を抽出します

Question

私は、外の情報を抽出したい.pptスライドを持っている、と私は、組織全体を通して様々な人々によって使用されているすべてのこれらのスライドのテンプレートを設定し、私は、各テキストに、すべての「名前」を知っている場合ボックスオブジェクト、

私は、Accessデータベースに.pptスライドの外にその情報を引き出すために、いくつかのVBを使用することができますか？

私はプロセスを逆に、アクセスの形式をとり、同じ方法で入力した情報を使用してPPTプレゼンテーションを作成する方法を知っています。私は右、私は反対の方向にこれを行うことができるべきであると、私はそれらに名前を付けるために何をしたいすべてのテキストボックス私はこれらのPPTスライドを設定した場合と仮定し、名前のでしょうか？

Answer 1

はい、あなたは逆の操作を行うと、アクセス権を持つことができますパワーポイントのスライドをお読みください。私は2枚のスライド、タイトルスライドとコンテンツスライドでPowerPoint 2007のプレゼンテーションを作成しました。空のアクセス2007デシベルの内部では、私は次のテストでコードモジュールを追加しました。また、アクセスVBAプロジェクトにPowerPointオブジェクトにrefrenenceを追加する必要があります。

Public Sub ImportPowerPoint()
    Dim app As PowerPoint.Application
    Dim pres As PowerPoint.Presentation
    Dim ps As PowerPoint.Presentations
    Set app = New PowerPoint.Application
    app.Activate
    Set pres = app.Presentations.Open("C:\Temp\title slide.pptx")
    Debug.Print pres.Slides(1).Shapes(1).Name & " " & pres.Slides(1).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(1).Shapes(2).Name & " " & pres.Slides(1).Shapes(2).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(1).Name & " " & pres.Slides(2).Shapes(1).TextEffect.Text
    Debug.Print pres.Slides(2).Shapes(2).Name & " " & pres.Slides(2).Shapes(2).TextEffect.Text
End Sub

あなたは後の形状オブジェクトに関連付けられたTextEffectオブジェクトの内部に収容されているされている

テキストます。

タグ（申し訳ありませんが、私はOffice 2003を持っていなかったが、非常に類似していなければならない）、これが役に立てば幸い