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

関連記事

: ブックの変更が保存されているかを確認する（Saved プロパティ）

ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …

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

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

: 数式バーの設定（DisplayFormulaBar, FormulaBarHeight）

数式バーの設定数式バーの表示・非表示の設定を行うには、DisplayFormu …

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

: ワークシートの非表示・再表示（Visible プロパティ）

ワークシートの表示・非表示ワークシートを非表示にしたり、非表示にしたワークシー …

: 印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）

PageSetup.Orientation プロパティ PageSetup.Or …

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

Worksheets プロパティ Worksheets プロパティは、Works …

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

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

: 印刷設定（ヘッダーに画像を指定）LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture

ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …

: ブックのファイル形式を調べる（FileFormat プロパティ）

ブックのファイル形式を調べる（FileFormat プロパティ）指定したブック …

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