Form.PaletteSource プロパティ (Access)

PaletteSource プロパティを使用して、フォームのパレットを指定します。 読み取り/書き込みが可能な String です。

構文

式。PaletteSource

expressionForm オブジェクトを表す変数です。

注釈

次の種類のファイルのパスとファイル名を入力します。

• .dib (デバイスに依存しないビットマップ ファイル)

• .pal (Windows のパレット ファイル)

• .ico (Windows アイコン ファイル)

• .bmp (Windows ビットマップ ファイル)

• .wmf ファイル, .emf ファイル、またはグラフィックス フィルターがサポートされているその他のグラフィックス ファイル

既定値は、Access に付属のパレットを示す [(Default)/(既定の設定)] です。 パスとファイル名を入力してこの設定値を変更すると、プロパティの設定値として "(Custom)/(カスタム)" という文字列が表示されます。

フォームの場合は、 PaletteSource プロパティをデザイン ビューおよびフォーム ビューで設定できます。 その他のビューでこのプロパティを設定することはできません。

Windows では、一度に 1 つのカラー パレットしか設定できません。 Access を使用すると、それぞれ異なるカラー パレットを使用して、1 つのフォームに複数のグラフィックスを配置できます。 PaletteSource プロパティおよび " PaintPalette /パレット元" プロパティを使用すると、フォームでグラフィックスを表示するときに使用するカラー パレットを指定できます。

フォームまたはレポートの PaletteSource プロパティを設定すると、 その PaintPalette プロパティが自動的に更新されます。 逆に、フォームまたはレポートの PaintPalette プロパティを設定すると、" PaletteSource /パレット元" プロパティも更新されます。 たとえば、 PaintPalette プロパティにカスタム パレットを指定すると、 PaletteSource プロパティの設定値は [(Custom)/(カスタム)] に更新されます。 PaintPalette プロパティ (マクロまたは Visual Basic でのみ使用可能) は、フォームまたはレポートのパレットを設定する目的で使用されます。 "PaletteSource/パレット元" プロパティは、既存のグラフィックス ファイルを使用して、プロパティ シートでフォームまたはレポートのパレットを設定できるようにします。

例

次の使用例は、Seascape フォームの PaintPalette プロパティを DisplayPictures フォームの Ocean コントロールの ObjectPalette プロパティに設定します。 Ocean は連結オブジェクト フレーム、コマンド ボタン、グラフ、トグル ボタン、または非連結オブジェクト フレームのいずれでもかまいません。

Forms!Seascape.PaintPalette = _ 
 Forms!DisplayPictures!Ocean.ObjectPalette

ObjectPalette プロパティと PaintPalette プロパティは、実行時に開かれているフォームで使用されるカラー パレットをプログラムで変更する場合に役に立ちます。 これらのプロパティの一般的な使い方として、カレント フォームの PaintPalette プロパティを、フォーカスが設定されているコントロールに表示されているグラフィックスのプロパティの値に設定する方法があります。

たとえば、青で陰影を付けた海の絵と、赤で陰影を付けた日没の絵をフォームに表示できます。 Windows では一度に 1 つのカラー パレットしかアクティブにできないため、1 つの画像は他の画像よりもはるかに優れた外観になります。

次の例では、コントロールの Enter イベントを使用して、フォームの PaintPalette プロパティをコントロールの ObjectPalette プロパティに設定し、フォーカスのあるグラフィックが最適な外観になるようにします。

Sub OceanPicture_Enter() 
 Me.PaintPalette = Me!OceanPicture.ObjectPalette 
End Sub 
 
Sub SunsetPicture_Enter() 
 Me.PaintPalette = Me!SunsetPicture.ObjectPalette 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。