6

アドイン自体の VBA コードから、PowerPoint アドイン ファイル (「PowerPoint アドイン (*.ppa)」として保存されたプレゼンテーション) のドキュメント プロパティにアクセスできるようにしたいと考えています。

問題を理解するのに役立つ場合は、アドインのバージョン番号を格納するカスタム ドキュメント プロパティを読み取って、ダイアログ ボックスに表示できるようにします。

Word と Excel では、 ThisDocument&を使用してこれを行うことができますThisWorkbook。どちらも、実行中のコードを含むドキュメントへの参照を返します。ただし、ThisPresentationPowerPoint には同等のものはありません。

標準の PowerPoint プレゼンテーションまたはテンプレートの場合は、ActivePresentation. ただし、この方法はアドインでは機能しません。

何か案は？バージョン番号をどこに貼るべきかについての提案はありません:-)

4

3 に答える 3

0

2010 年 2 月 2 日改訂: 最終的な解決策のみを表示するように回答をクリーンアップしました。

求められたことを実行する方法は次のとおりです。DLL は使用しません。本当に簡単です：

Sub ReturnPPAasPresentation()
    Dim p As Presentation
    Set p = Presentations("presentation1.ppa")
    Dim title As String, version As String
    version = p.CustomDocumentProperties("Version").Value
    title = p.BuiltInDocumentProperties("Title").Value
    MsgBox "Version: " & version & " of " & title, vbOKOnly, title
End Sub
于 2009-09-24T20:30:46.200 に答える