Window.BackgroundColor プロパティ (Visio)
アクティブな Microsoft Visio 図面ウィンドウとそれに関連する印刷プレビュー ウィンドウ、および全画面表示ウィンドウの背景色を指定します。 値の取得と設定が可能です。
構文
式。 BackgroundColor
式Window オブジェクトを表す変数。
戻り値
OLE_COLOR
注釈
Visio 内で OLE_COLOR プロパティに使用できる値は、次のいずれかです。
H00 bbggrr を &します。ここで、 bb は 0 から 0xFF (255) までの青い値、緑の値を gg 、赤の値 rr を指定します。
xx &H800000。xx は有効な GetSysColor インデックスです。
GetSysColor 関数の詳細については、MSDN の Microsoft Platform SDK で "GetSysColor" を検索します。
OLE_COLOR データ型は、色を返すプロパティに使用されます。 プロパティがOLE_COLORとして宣言されている場合、Visual Basic エディターのプロパティ ウィンドウには、ユーザーが同等の数値を覚えておく必要なく、プロパティの色を視覚的に選択できるカラー ピッカー ダイアログ ボックスが表示されます。
OLE_COLOR には、次の Microsoft Visual Basic for Applications (VBA) のカラー定数も使用できます。
| 定数 | 値 | 説明 |
|---|---|---|
| vbBlack | 0x0 | 黒 |
| vbRed | 0xFF | 赤 |
| vbGreen | 0xFF00 | 緑 |
| vbYellow | 0xFFFF | 黄 |
| vbBlue | 0xFF0000 | 青 |
| vbMagenta | 0xFF00FF | 紫 |
| vbCyan | 0xFFFF00 | シアン |
| vbWhite | 0xFFFFFF | ホワイト |
図面ウィンドウ、印刷プレビュー ウィンドウ、または全画面表示ビュー ウィンドウの場合、ウィンドウの BackgroundColor プロパティを既定値 (-1) 以外の値に設定すると、そのウィンドウの ApplicationSettings.DrawingBackgroundColor、 ApplicationSettings.PrintPreviewBackgroundColor、 ApplicationSettings.FullScreenBackgroundColor 設定がオーバーライドされます。 同じウィンドウ セットに対してこれらのプロパティをリセットできるようにするには、 BackgroundColor を既定値の -1 にリセットする必要があります。 複数の図面が開いている場合、1 つのウィンドウ セットに BackgroundColor を設定しても、開いている他のウィンドウ セットの設定には影響しません。
ただし、シェイプシート ウィンドウの場合、ウィンドウの BackgroundColor プロパティを既定以外の値に設定すると、シェイプシート ウィンドウの背景色は変更されますが、他のウィンドウ設定には影響しません。
例
次の VBA マクロは、BackgroundColor プロパティを使用して、現在の図面ウィンドウの背景色を取得し設定する方法を示しています。 また、Visio Application オブジェクトから ApplicationSettings オブジェクトを取得する方法も示し、BackgroundColor プロパティと ApplicationSettings.DrawingBackgroundColor プロパティの関係を示します。 この例では、Visio で開いているアクティブな描画ウィンドウがあり、最初にすべての背景色プロパティが既定値に設定されていることを前提としています。
Public Sub BackgroundColor_Example()
Dim vsoApplicationSettings As Visio.ApplicationSettings
Set vsoApplicationSettings = Visio.Application.Settings
'Get the current application background color.
Debug.Print vsoApplicationSettings.DrawingBackgroundColor
'Get the active window background color.
Debug.Print ActiveWindow.BackgroundColor
'Change the application background color.
'This also changes the active window color as
'well as the setting in the Color Settings dialog box.
vsoApplicationSettings.DrawingBackgroundColor = vbRed
'Change the active window background color.
ActiveWindow.BackgroundColor = vbMagenta
'Change the application background color again.
'This time, there is no change in the current
'window color, but the dialog box setting changes.
vsoApplicationSettings.DrawingBackgroundColor = vbYellow
'Reset Window.BackgroundColor to its default value.
ActiveWindow.BackgroundColor = -1
'Change the application background color again.
'Now both the active window color
'and the dialog box setting change.
vsoApplicationSettings.DrawingBackgroundColor = vbBlue
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。