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

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



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

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




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

(*)の項目はテストしましたが設定できないようです。


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

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

Bookのプロパティの設定シート

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

設定済みのブックのプロパティ

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

作成日時等のプロパティ


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へ

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


Copyright (c) Excel-Excel ! All rights reserved