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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: シートを保護・保護したシートを解除する（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）

SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …

: ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

: ワークシートのコピー・移動（Copy メソッド Move メソッド）

Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …

: 印刷の先頭のページ番号を設定（PageSetup.FirstPageNumber プロパティ）

PageSetup.FirstPageNumber プロパティ PageSetu …

: WorksheetView オブジェクト

WorkSheetView オブジェクト行列番号や枠線の表示・非表示の設定など …

: ブックを別名で保存（SaveAs メソッド）

ブックを別名で保存（SaveAs メソッド）ブックの変更を保存したり、新規ブッ …

: 共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ）

共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …

: ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）

Protect メソッド・Unprotect メソッド Protect メソッド …

: ワークシートを参照する（Sheets プロパティ）

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

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