ApplicationSettings.DrawingBackgroundColor プロパティ (Visio)

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

構文

式。DrawingBackgroundColor

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

戻り値

OLE_COLOR

注釈

Visio 内で OLE_COLOR プロパティに使用できる値は、次のいずれかです。

  • &H00 bbggrr です。bb は 0 から 0xFF (255) の青の値、gg は緑の値、rr は赤の値です。

  • &H800000 xx 、 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 のサポートおよびフィードバックを参照してください。

  • Last updated on