次の方法で共有


Project.CustomDocumentProperties プロパティ (Project)

Gets a DocumentProperties collection representing the custom properties of the document. Read-only Object.

構文

CustomDocumentProperties

Project オブジェクトを表す変数。

注釈

詳細については、『Microsoft Office Visual Basic リファレンス』の「DocumentProperties コレクション オブジェクト」を参照してください。

このプロパティを使用して、[ ツール ] メニューの [ 参照 ] コマンドを使用して、14.0 を Microsoft Office オブジェクト ライブラリへの参照を含める必要があります。 オブジェクト ライブラリには、Visual Basic のオブジェクト、プロパティ、メソッド、およびドキュメントのプロパティを操作するために使用する定数の定義が含まれています。

Use the BuiltinDocumentProperties property to return the collection of built-in document properties.

次の例では、 完了した日付のカスタム プロパティ値になります Nothingプロパティがプロジェクトに追加されますが、プロジェクトが完了していない場合。 TestDocPropsの使用例を実行する前に、作業中にいくつかのタスクは、プロジェクトし、リソースに割り当てるを追加します。

Sub TestDocProps()
    Dim docProps As Office.DocumentProperties
    Dim docProp As Office.DocumentProperty
    Dim numProps As Integer
    
    Set docProps = ActiveProject.CustomDocumentProperties
    
    numProps = docProps.Count
    Debug.Print "Number of custom document properties: " & numProps
    
    For Each docProp In docProps
        If (docProp.Name = "Date completed") Then
            Debug.Print "Date completed: (none) "
        Else
            Debug.Print docProp.Name & vbTab & ": " & docProp.Value
        End If
    Next docProp
End Sub

プロジェクトが 完了した日付プロパティを追加するため、 TestDocPropsマクロの結果を以下に示します。

Number of custom document properties: 7
% Complete  : 0%
Cost    : $0.00
Duration    : 5 days?
Finish  : Thu 5/7/09
Start   : Fri 5/1/09
Work    : 40h
% Work Complete : 0%

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。