.pptのスライドから情報を抽出します
-
19-09-2019 - |
質問
私は、外の情報を抽出したい.ppt
スライドを持っている、と私は、組織全体を通して様々な人々によって使用されているすべてのこれらのスライドのテンプレートを設定し、私は、各テキストに、すべての「名前」を知っている場合ボックスオブジェクト、
私は、Accessデータベースに.ppt
スライドの外にその情報を引き出すために、いくつかのVBを使用することができますか?
私はプロセスを逆に、アクセスの形式をとり、同じ方法で入力した情報を使用してPPTプレゼンテーションを作成する方法を知っています。私は右、私は反対の方向にこれを行うことができるべきであると、私はそれらに名前を付けるために何をしたいすべてのテキストボックス私はこれらのPPTスライドを設定した場合と仮定し、名前のでしょうか?
解決
はい、あなたは逆の操作を行うと、アクセス権を持つことができますパワーポイントのスライドをお読みください。私は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を持っていなかったが、非常に類似していなければならない)、これが役に立てば幸い
所属していません StackOverflow