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

関連記事

: 別のブックのマクロを実行（Run メソッド）

別のブックのマクロを実行別のブックのマクロを実行するには、Run メソッドを …

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: アクティブプリンタを変更（ActivePrinter プロパティ）

ActivePrinter プロパティ ActivePrinter プロパティを …

: 印刷時の改ページ設定（Add,ResetAllPageBreaks）

改ページの追加と解除印刷時に改ページを指定するには、HPageBreaks コ …

: 最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

最近使用したファイル（RecentFile オブジェクト,RecentFiles …

: アクティブシートを参照する（ActiveSheet プロパティ）

アクティブなワークシートを参照する ActiveSheet プロパティを使用する …

: 指定された情報をブックから削除（RemoveDocumentInformation メソッド）

RemoveDocumentInformation メソッド指定された種類の情 …

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

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

: 背景に画像を表示（SetBackgroundPicture メソッド）

SetBackgroundPicture メソッド SetBackgroundP …

: 印刷設定を高速化（PrintCommunication プロパティ）

PrintCommunication プロパティ PrintCommunicat …

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