エクセル フォームの色

質問

アクセスのフォームの色は
色の作成で自分の好きな色を作成できますが
エクセルのフォームは
図のような限られた色しか使うことはできないのでしょうか？
もしｖｂａなどを設定可能なら教えてください。
よろしくお願いします。
（2003です）

回答No.1

hallo-2007 · ベストアンサー

UserFormのプロパティの中に　Picture　というのがありますので
ご希望の写真や画像を背景に設定すればいくらでも飾り付けが出来ますよ。

お礼

図を添付するやり方ですね！参考になりました。

回答No.4

Trick--o--

追加

数値で直接指定することもできます
&H00000000&
を直接書き換えてください
&H00{Blue}{Green}{Red}&
で、それぞれ00～FFです。
例
黄色：&H0000FFFF&
青；&H00FF0000&

色の参考はURIから。
ただし、URIの色見本にある数値は#RGBで並んでいるので注意。
（例：darkcyan＝色見本#008b8b → エクセル&H008B8B00&）

参考URL：

http://www.colordic.org/

お礼

これはいいですね！
ありがとうございます。

回答No.3

Trick--o--

パレットの下に並んでいる白枠部分を《右クリック》すると、
「色の作成」ダイアログが出ます。
好きな色を作って「追加」ボタンを押すと、右クリックした白枠がその色になります。

Excel2000でできたので、2003でもできると思います

お礼

右クリックとは気づきませんでした！
できました。
ありがとうございます。

回答No.2

imogasi

UserForm1.BackColor = vbGreen
で下記のように設定できるようです。Ｌａｂｅｌ部分は関係なし。
コードに色の種類を（ＶＢ定数、ＲＧＢ，ＣＯＬＯＲＩＮＤＥＸ等で）書き込めば出来る。
ーー
Private Sub UserForm_Click()
UserForm1.Label1.Caption = "2asdd"
UserForm1.Label1.ForeColor = vbRed
UserForm1.Label1.BackColor = vbYellow
UserForm1.ForeColor = vbRed
UserForm1.BackColor = vbGreen
End Sub
ーー
しかし色パレットで指定した色をUserForm1.BackColor
に反映したいなら、小生には今のところうまく行きません。
Sub test01()
Application.Dialogs(xlDialogPatterns).Show
End Sub
を実行して
シートのセル範囲なら、範囲指定して置いて、カラーパレットの１色を選択してＯＫすると、セルに色がつきます。
Dialogs(xlDialogPatterns).Showはセル向けのものなのかも知れない。
ユーザーフォームにも使えるかどうか手探り中。
ちなみに、シェイプの四角を貼り付けて
Sub test02()
ActiveSheet.Shapes("Rectangle 1").Application.Dialogs(xlDialogPatterns).Show
End Sub
を実行し、色を選ぶと内部色が選んだ色になった。

お礼

むむ！
なんだか難しそうですね！がんばってみます。
ありがとうございます。