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

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

【書式】

object.CustomViews ( index )

引数・戻り値

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

index ・・・登録されているビューの名前またはインデックス番号を指定します。

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

CustomView.Show メソッド

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

【書式】

object.Show

引数・戻り値

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

CustomView.Delete メソッド

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

【書式】

object.Delete

引数・戻り値

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

CustomView.Name プロパティ

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

【書式】

object.Name

引数・戻り値

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

CustomView.PrintSettings プロパティ

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

【書式】

object.PrintSettings

引数・戻り値

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

CustomView.RowColSettings プロパティ

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

【書式】

object.RowColSettings

引数・戻り値

object ・・・対象となる 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

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 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

実行結果

Sub Sample01_CustomView() を実行

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