Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックのプロパティ（BuiltinDocumentProperties プロパティ）

2015/12/07 2015/12/11

BuiltinDocumentProperties プロパティ

ブックのプロパティには、タイトル、作成者、会社名、作成日時などの情報があり、BuiltinDocumentProperties プロパティ を使用して、その情報（DocumentProperties コレクション）を取得および設定をすることができます。

【書式】

＜取得＞
object.BuiltinDocumentProperties ( title )

＜設定＞
object.BuiltinDocumentProperties ( title ) = string

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。

title ・・・プロパティ名、インデックス値を指定します。
【BuiltinDocumentProperties プロパティに設定できる主なプロパティ名・インデックス値】

インデックス値	プロパティ名	内容
1	Subject	サブタイトル
2	Author	作成者
3	Keywords	キーワード
4	Comments	コメント
6	Last author	最終保存者
7	Revision number	改訂番号
8	Application name	アプリケーション名
9	Last print date	最終印刷日
10	Creation date	作成日時
11	Last save time	更新日時
12	Total editing time	編集時間
17	Category	分類
19	Manager	管理者
20	Company	会社
28	Hyperlink base	ハイパーリンクの基点
31	Content status	状態

string ・・・設定値（作成者、タイトルなど）を指定します。

ブックのプロパティやコメントなどの情報を削除するには、RemoveDocumentInformation メソッドを使用します。

値の設定されていないプロパティ値等を取得しようとする時、エラーが発生する場合があるので注意が必要です。

BuiltinDocumentProperties プロパティ使用例

サンプルVBAソース

　
Sub Sample_BuiltinDocumentProperties()
    
    Dim i As Integer
    Dim w As Workbook
    Set w = Workbooks.Open("C:\Documents\mybook.xlsx")
    
    'エラー発生時、無視して次へ進む
    On Error Resume Next
    
    '【プロパティの設定】
    'タイトルを「サンプル」に設定
    w.BuiltinDocumentProperties("Title") = "サンプル"
    
    '作成者を「山田 太郎」に設定
    w.BuiltinDocumentProperties("Author") = "山田 太郎"
    
    '最終保存者を「山田 花子」に設定
    w.BuiltinDocumentProperties("Last Author") = "山田 花子"
    
    '作成日時を「2000/1/1」に設定
    w.BuiltinDocumentProperties("Creation date") = "2000/1/1"
    
    '【プロパティの取得】
    'シートに、プロパティの種類と設定値の一覧を表示
    For i = 1 To w.BuiltinDocumentProperties.Count
        
        ActiveSheet.Cells(i, 1) = w.BuiltinDocumentProperties(i).Name
        ActiveSheet.Cells(i, 2) = w.BuiltinDocumentProperties(i).Value
        
    Next i
    
    '列幅自動設定
    ActiveSheet.Columns("A:B").AutoFit
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

　

Sub Sample_BuiltinDocumentProperties()

Dim i As Integer

Dim w As Workbook

Set w = Workbooks.Open("C:\Documents\mybook.xlsx")

'エラー発生時、無視して次へ進む

On Error Resume Next

'【プロパティの設定】

'タイトルを「サンプル」に設定

w.BuiltinDocumentProperties("Title") = "サンプル"

'作成者を「山田太郎」に設定

w.BuiltinDocumentProperties("Author") = "山田太郎"

'最終保存者を「山田花子」に設定

w.BuiltinDocumentProperties("Last Author") = "山田花子"

'作成日時を「2000/1/1」に設定

w.BuiltinDocumentProperties("Creation date") = "2000/1/1"

'【プロパティの取得】

'シートに、プロパティの種類と設定値の一覧を表示

For i = 1 To w.BuiltinDocumentProperties.Count

ActiveSheet.Cells(i, 1) = w.BuiltinDocumentProperties(i).Name

ActiveSheet.Cells(i, 2) = w.BuiltinDocumentProperties(i).Value

Next i

'列幅自動設定

ActiveSheet.Columns("A:B").AutoFit

End Sub

　

実行結果

- ブック・シートの操作 BuiltinDocumentProperties プロパティ, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）

Paste メソッド指定したワークシート上にクリップボードのデータを貼り付けま …

: シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）

シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …

: 枠線の表示・非表示の設定（DisplayGridlines プロパティ）

枠線の表示・非表示の設定枠線の表示・非表示を設定するには、DisplayGri …

: ブック・シートの名前を取得・設定（Name プロパティ）

ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: ブックの表示を変更（View プロパティ）

ブックの表示を変更（View プロパティ） View プロパティで、ブックの表 …

: ウィンドウを整列（Windows.Arrange メソッド）

ウィンドウを整列（Windows.Arrange メソッド） Windows コ …

: ブックのパスを取得（FullName プロパティ,Path プロパティ）

FullName プロパティ・Path プロパティブックのパス（保存場所）を調 …

: ワークシートの追加・削除（Add メソッド・Delete メソッド）

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

: 並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）

並べて比較（CompareSideBySideWith メソッド） Compar …

PREV: ファイルをコピー（FileCopy ステートメント）
NEXT: ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）