ブックのプロパティ(BuiltinDocumentProperties プロパティ)
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 メソッド を使用します。
値の設定されていないプロパティ値等を取得しようとする時、エラーが発生する場合があるので注意が必要です。
- 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ソース
|
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 |
実行結果
関連記事
-
-
印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)
印刷の総ページ数を取得(ExecuteExcel4Macro メソッド) Exc …
-
-
アクティブプリンタを変更(ActivePrinter プロパティ)
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
画面の上端・左端を設定(ScrollRow プロパティ、ScrollColumn プロパティ)
画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …
-
-
セルのコメントを印刷(PageSetup.PrintComments プロパティ)
PageSetup.PrintComments プロパティ PageSetup. …
-
-
ブックのファイル形式を調べる(FileFormat プロパティ)
ブックのファイル形式を調べる(FileFormat プロパティ) 指定したブック …
-
-
ステータスバーにメッセージを表示(StatusBar プロパティ)
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
ファイル保存の既定の形式を取得・設定(DefaultSaveFormat プロパティ)
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
印刷設定(ヘッダーに文字列を指定)LeftHeader,CenterHeader,RightHeader
PageSetup.LeftHeader プロパティ PageSetup.Lef …
-
-
アクティブシートを参照する(ActiveSheet プロパティ)
アクティブなワークシートを参照する ActiveSheet プロパティを使用する …
-
-
印刷の先頭のページ番号を設定(PageSetup.FirstPageNumber プロパティ)
PageSetup.FirstPageNumber プロパティ PageSetu …
