Window.BackgroundColorGradient プロパティ (Visio)
アクティブな Microsoft Visio 図面ウィンドウとそれに関連する印刷プレビュー ウィンドウ、および全画面表示ウィンドウの背景のグラデーション カラーを指定します。 値の取得と設定が可能です。
構文
式。 BackgroundColorGradient
式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 | ホワイト |
図面ウィンドウ、印刷プレビュー ウィンドウ、または全画面表示ビュー ウィンドウの場合、ウィンドウの BackgroundColorGradient プロパティを既定 (-1) 以外の値に設定すると、そのウィンドウセットの ApplicationSettings.DrawingBackgroundColorGradient 設定がオーバーライドされます。 同じウィンドウ セットに対してこのプロパティをリセットするには、 BackgroundColorGradient を既定値の -1 にリセットする必要があります。 複数の図面が開いている場合、1 つのウィンドウ セットに BackgroundColorGradient を設定しても、開いている他のウィンドウ セットの設定には影響しません。
ただし、シェイプシート ウィンドウの場合、ウィンドウの BackgroundColorGradient プロパティを既定値以外の値に設定しても、シェイプシート ウィンドウの背景色や他のウィンドウ設定には影響しません。
例
次の VBA マクロは、BackgroundColorGradient プロパティを使用して、アクティブ ウィンドウの背景のグラデーション カラーを取得し設定する方法を示しています。 また、Visio Application オブジェクトから ApplicationSettings オブジェクトを取得する方法も示し、BackgroundColorGradient プロパティと ApplicationSettings.DrawingBackgroundColorGradient プロパティの関係を示します。 次の使用例は、Visio で開いているアクティブな描画ウィンドウがあり、最初にすべての背景色のグラデーションの色プロパティが既定値に設定されていることを前提としています。
Public Sub BackgroundColorGradient_Example()
Dim vsoApplicationSettings As Visio.ApplicationSettings
Set vsoApplicationSettings = Visio.Application.Settings
'Get the current application background gradient color.
Debug.Print vsoApplicationSettings.DrawingBackgroundColorGradient
'Get the current window background color gradient.
Debug.Print ActiveWindow.BackgroundColorGradient
'Change the application background gradient color.
'This also changes the current window color as
'well as the setting in the Color Settings dialog box.
vsoApplicationSettings.DrawingBackgroundColor = vbRed
'Change the active window background gradient color.
ActiveWindow.BackgroundColorGradient = vbMagenta
'Change the application background gradient color again.
'This time, there is no change in the current
'window color, but the dialog box setting changes.
vsoApplicationSettings.DrawingBackgroundColorGradient = vbYellow
'Reset Window.BackgroundColorGradient to its default value.
ActiveWindow.BackgroundColorGradient = -1
'Change the application background gradient color again.
'Now both the active window color
'and the dialog box setting change.
vsoApplicationSettings.DrawingBackgroundColorGradient = vbBlue
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。