ユーザー設定のビュー（CustomView オブジェクト）

2015/12/11

ユーザー設定のビュー

CustomView オブジェクトは、登録されている各ビューを表し、取得するには、CustomViews(index) プロパティを使用します。

【書式】

object.CustomViews ( index )

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。
index ・・・登録されているビューの名前またはインデックス番号を指定します。

CustomViews プロパティ の詳細に関しては、ユーザー設定のビュー（CustomViews プロパティ）を参照してください。）

CustomView の主なメソッド

CustomView.Show メソッド

登録されているユーザー設定ビューを切り替えます。

【書式】

object.Show

引数・戻り値

object ・・・対象となる CustomView オブジェクトを指定します。

CustomView.Delete メソッド

指定したビューを削除します。

【書式】

object.Delete

引数・戻り値

object ・・・対象となる CustomView オブジェクトを指定します。

CustomView の主なプロパティ

CustomView.Name プロパティ

指定したビューの名前を取得します。

【書式】

object.Name

引数・戻り値

object ・・・対象となる CustomView オブジェクトを指定します。

CustomView.PrintSettings プロパティ

指定したビューに、印刷設定を含んでいるかどうかを取得します。ブール型（Boolean）の値を使用します。（印刷設定を含んでいる場合は、True を取得します。）

【書式】

object.PrintSettings

引数・戻り値

object ・・・対象となる CustomView オブジェクトを指定します。

CustomView.RowColSettings プロパティ

指定したビューに、非表示の行列・フィルターの設定を含んでいるかどうかを取得します。ブール型（Boolean）の値を使用します。（非表示の行列・フィルターの設定を含んでいる場合は、True を取得します。）

【書式】

object.RowColSettings

引数・戻り値

object ・・・対象となる CustomView オブジェクトを指定します。

CustomView 使用例

サンプルVBAソース

　
Sub Sample01_CustomView()

    Dim v As CustomView
    Dim str As String
    
    With ActiveWorkbook
    
        For Each v In .CustomViews
                
            str = str & _
                  "【名前】：" & v.Name & _
                  "　【印刷の設定】：" & v.PrintSettings & _
                  "　【非表示行列】：" & v.RowColSettings & vbCrLf
    
        Next v
    
    End With
    
    MsgBox str
    
End Sub
　
Sub Sample02_CustomView()
　
    '指定したビューを表示
    ActiveWorkbook.CustomViews("テスト結果一覧表").Show
　
End Sub
　
Sub Sample03_CustomView()
　
    '指定したビューを削除
    ActiveWorkbook.CustomViews("テスト結果一覧表").Delete
　
End Sub