Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39510 / 76732 ←次へ | 前へ→

【42332】Re:フォントのカラーパレット
発言  ichinose  - 06/9/6(水) 20:33 -

引用なし
パスワード
   ▼Massan さん:
こんばんは。

>ワークシートのメニューバーに、フォントの色を変更するパレットが
>ありますが、あのパレットをユーザーフォームに流用する方法など
>ないでしょうか。
>また、流用できる場合、そこで選択した色のインデックスはどのように
>取得するのでしょうか。
私は、ちゃんとしたもの作成する場合は

http://www.loadsystem.net/api/lsapi3.txt

このあたりのAPIをそっくりそのまま使用します(CHOOSECOLOR)


でも、取り合えず色の取得が出来ればいいや!!
というときは、

ユーザーフォーム(Userform1)にコマンドボタン(Commandbutton1)
をひとつ配置してください

当該フォームのモジュールに


Private Sub CommandButton1_Click()
  Dim cl As Long
  If get_color(Range("a1"), cl) = True Then
    CommandButton1.BackColor = cl
    End If
End Sub
Function get_color(rng As Range, cl As Long) As Boolean
  Dim ans As Boolean
  rng.Parent.Parent.Activate
  rng.Parent.Activate
  rng.Select
  get_color = Application.Dialogs(xlDialogPatterns).Show
  If get_color = True Then
   cl = rng.Interior.Color
   rng.Interior.ColorIndex = xlNone
   End If
End Function


ボタンをクリックすると色指定のダイアログが表示されます(見出しが違うのは
ご愛嬌)

色を指定してOKボタンでその色がCommandbutton1に反映します。
試してみてください
0 hits

【42322】フォントのカラーパレット Massan 06/9/6(水) 16:57 質問
【42331】Re:フォントのカラーパレット Ki 06/9/6(水) 19:48 発言
【42347】Re:フォントのカラーパレット Massan 06/9/7(木) 15:23 お礼
【42332】Re:フォントのカラーパレット ichinose 06/9/6(水) 20:33 発言
【42348】Re:フォントのカラーパレット Massan 06/9/7(木) 15:26 お礼

39510 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free