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

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