ApplicationSettings.DrawingBackgroundColor プロパティ (Visio)

現在のセッションの Microsoft Visio 図面ウィンドウの背景色を指定します。 値の取得と設定が可能です。

構文

式。DrawingBackgroundColor

式ApplicationSettings オブジェクトを表す変数。

戻り値

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として宣言されている場合、プロパティ ウィンドウには、ユーザーが同等の数値を覚えておく必要なく、プロパティの色を視覚的に選択できるカラー ピッカー ダイアログ ボックスが表示されます。

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) 以外の値に設定すると、そのウィンドウの DrawingBackgroundColor 設定がオーバーライドされます。 DrawingBackgroundColorプロパティを設定して同じアクティブ ウィンドウの背景色をリセットできるようにするには、BackgroundColor を既定値、つまり -1 にリセットする必要があります。 複数のウィンドウが開いている場合は、任意のウィンドウの BackgroundColor を設定しても、開いている他のウィンドウ用の設定にはまったく影響しません。

注:

ハイコントラスト モードで実行中の、ユーザーの図面の背景色をプログラムで設定できる機能は制限されます。

例

次の VBA マクロでは、DrawingBackgroundColor プロパティを使用して、アプリケーションの背景色を取得して設定します。 また、Visio Application オブジェクトから ApplicationSettings オブジェクトを取得する方法も示し、DrawingBackgroundColor プロパティと Window.BackgroundColor プロパティの関係を示します。 この例では、Visio で開いている描画ウィンドウがあり、最初にすべての背景色プロパティが既定値に設定されていることを前提としています。

Public Sub DrawingBackgroundColor_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 will also change 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 のサポートおよびフィードバックを参照してください。