Excel VBAでブックのプロパティを設定する方法｜BuiltinDocumentPropertiesの使い方

BuiltinDocumentPropertiesでブックの各種プロパティを設定するVBAを掲載しています。

ブックのプロパティを手動で設定したり、見るにはプロパティ画面を開きます。
プロパティ画面は下記の方法で見ることができます。
・Excel2013では、リボンの［ファイル］～「情報」～「プロパティをすべて表示」を実行します。
・Excel2000、Excel2002、Excel2003では、メニューの「ファイル」-「プロパティ」を実行します。
・Excel2007では、「Office」ボタンをクリックし、「配布準備」から「プロパティ」を選択します。
関連する「ブックのプロパティを取得する」を掲載していますので、参考にしてください。

■ 設定できるプロパティの項目内容

（＊）の項目はテストしましたが設定できないようです。

1 : タイトル - Title
2 : サブタイトル - Subject
3 : 作成者 - Author
4 : キーワード - Keywords
5 : コメント - Comments
6 : テンプレート - Template
7 : 更新者 - Last Author
8 : 改訂番号 - Revision Number
9 : アプリケーション名 - Application Name
10 : 印刷日時 - Last Print Date
11 : 作成日時 - Creation Date
12 : 更新日時 - Last Save Time
13 : 編集時間 - Total Editing Time
14 : ページ数 - Number of Pages
15 : 単語数 - Number of Words
16 : 文字数 - Number of Characters　（＊）
17 : セキュリティ - Security　（＊）
18 : 分類 - Category　（＊）
19 : 形式 - Format　（＊）
20 : 管理者 - Manager　（＊）
21 : 会社名 - Manager　（＊）
22 : バイト数 - Number of Bytes　（＊）
23 : 行数 - Number of Lines　（＊）
24 : 段落数 - Number of Paragraphs　（＊）
25: スライドの数 - Number of Slides　（＊）
26 : メモの数 - Number of Notes　（＊）
27 : 非表示スライドの数 - Number of Hidden Slides　（＊）
28 : マルチメディアクリップの数 - Number of Multimedia Clips　（＊）
29 : ハイパーリンクの基点 - Hyperlink Base
30 : 文字数（スペースを含む） - Number of Characters (with space)　（＊）

Excelブックのプロパティを設定する実行画面

E列のデータをプロパティにセットします。

ファイルの概要タブのプロパティ画面
全てではないですがタイトルなど設定されています。

詳細情報タブのプロパティ画面

Excelブックのプロパティを設定するVBA実行コード

設定できない項目はエラーになるのでコメントにしています。

Private Sub CommandButton1_Click()

    '1 : タイトル
    ActiveWorkbook.BuiltinDocumentProperties.Item("Title") = Range("E1")

    '2 : サブタイトル
    ActiveWorkbook.BuiltinDocumentProperties.Item("Subject") = Range("E2")

    '3 : 作成者
    ActiveWorkbook.BuiltinDocumentProperties.Item("Author") = Range("E3")

    '4 : キーワード
    ActiveWorkbook.BuiltinDocumentProperties.Item("Keywords") = Range("E4")

    '5 : コメント
    ActiveWorkbook.BuiltinDocumentProperties.Item("Comments") = Range("E5")

    '6 : テンプレート
    ActiveWorkbook.BuiltinDocumentProperties.Item("Template") = Range("E6")

    '7 : 更新者
    ActiveWorkbook.BuiltinDocumentProperties.Item("Last Author") = Range("E7")

    '8 : 改訂番号
    ActiveWorkbook.BuiltinDocumentProperties.Item("Revision Number") = Range("E8")

    '9 : アプリケーション名
    ActiveWorkbook.BuiltinDocumentProperties.Item("Application Name") = Range("E9")

    '10 : 印刷日時
    ActiveWorkbook.BuiltinDocumentProperties.Item("Last Print Date") = Range("E10")
    'Range("E10") = ActiveWorkbook.BuiltinDocumentProperties.Item(10)

    '11 : 作成日時
    ActiveWorkbook.BuiltinDocumentProperties.Item("Creation Date") = Range("E11")

    '12 : 更新日時
    ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time") = Range("E12")

    '13 : 編集時間
    ActiveWorkbook.BuiltinDocumentProperties.Item("Total Editing Time") = Range("E13")

    '14 : ページ数
    ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Pages") = Range("E14")

    '15 : 単語数
     ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Words") = Range("E15")
    'Range("E15") = ActiveWorkbook.BuiltinDocumentProperties.Item(15)

    '16 : 文字数
    'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters")
    'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item(16)

    '17 : セキュリティ
    Range("E17") = ActiveWorkbook.BuiltinDocumentProperties.Item("Security")

    '18 : 分類
    Range("E18") = ActiveWorkbook.BuiltinDocumentProperties.Item("Category")

    '19 : 形式
    Range("E19") = ActiveWorkbook.BuiltinDocumentProperties.Item("Format")

    '20 : 管理者
    Range("E20") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")

    '21 : 会社名
    Range("E21") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")

    '22 : バイト数
    'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Bytes")
    'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item(22)

    '23 : 行数
    'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Lines")
    'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item(23)

    '24 : 段落数
    'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Paragraphs")
    'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item(24)

    '25: スライドの数
    'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Slides")
    'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item(25)

    '26 : メモの数
    'Range("E26") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Notes")
    'Range("E26") = ActiveWorkbook.BuiltinDocumentProperties.Item(26)

    '27 : 非表示スライドの数
    'Range("E27") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Hidden Slides")
    'Range("E27") = ActiveWorkbook.BuiltinDocumentProperties.Item(27)

    '28 : マルチメディアクリップの数
    'Range("E28") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Multimedia Clips")
    'Range("E28") = ActiveWorkbook.BuiltinDocumentProperties.Item(28)

    '29 : ハイパーリンクの基点
    Range("E29") = ActiveWorkbook.BuiltinDocumentProperties.Item("Hyperlink Base")

    '30 : 文字数（スペースを含む）
    'Range("E30") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters (with space)")
    'Range("E30") = ActiveWorkbook.BuiltinDocumentProperties.Item(30)

End Sub

Homeに戻る > Excel ブックのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します