Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ブックが互換モードで開いているか確認する（Excel8CompatibilityMode プロパティ）

2015/12/12

ブックが互換モードで開いているか確認する

Excel8CompatibilityMode プロパティで、ブックが互換モードで開いているかどうかを確認することができます。

【書式】

object.Excel8CompatibilityMode

引数・戻り値

object ・・・対象となる Workbook オブジェクトを指定します。
戻り値・・・ブール型（Boolean）の値を使用します。ブックが互換モードで開かれている場合は、True、そうでない場合は、False。

Excel8CompatibilityMode プロパティ使用例

サンプルVBAソース

　
Sub Sample_Excel8CompatibilityMode()

    Dim w As Workbook
    Set w = Workbooks.Open("C:\Documents\test03.xls")
    
    If w.Excel8CompatibilityMode = True Then
        MsgBox w.Name & " は、互換モードです"
    Else
        MsgBox w.Name & " は、互換モードではありません"
    End If
    
    w.Close
    Set w = Nothing

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

Sub Sample_Excel8CompatibilityMode()

Dim w As Workbook

Set w = Workbooks.Open("C:\Documents\test03.xls")

If w.Excel8CompatibilityMode = True Then

MsgBox w.Name & " は、互換モードです"

Else

MsgBox w.Name & " は、互換モードではありません"

End If

w.Close

Set w = Nothing

End Sub

　

実行結果

- ブック・シートの操作 Excel8CompatibilityMode プロパティ, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 行列の見出しの表示・非表示（DisplayHeadings プロパティ）

DisplayHeadings プロパティ行と列の見出しの表示・非表示を設定お …

: ブックの表示を変更（View プロパティ）

ブックの表示を変更（View プロパティ） View プロパティで、ブックの表 …

: 0 を表示するかどうかを設定（DisplayZeros プロパティ）

DisplayZeros プロパティ DisplayZeros プロパティに、T …

: 印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）

PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …

: シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）

シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: ウィンドウの状態を取得・設定（WindowState プロパティ）

ウィンドウの状態を取得・設定（WindowState プロパティ） Window …

: ワークシートをアクティブにする・選択する（Activate, Select）

Activate メソッド・Select メソッド Activate メソッドは …

: 印刷品質を設定（PageSetup.PrintQuality プロパティ）

PageSetup.PrintQuality プロパティ PageSetup.P …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

PREV: ユーザー設定のビュー（CustomView オブジェクト）
NEXT: 指定したセルへ移動（Goto メソッド）