Excel VBA質問箱 IV

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

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


5969 / 13644 ツリー ←次へ | 前へ→

【47876】フォームコントロールの色 マキチャン 07/3/25(日) 9:37 質問[未読]
【47877】Re:フォームコントロールの色 Misako 07/3/25(日) 9:52 発言[未読]
【47880】Re:フォームコントロールの色 マキチャン 07/3/25(日) 11:07 質問[未読]
【47884】Re:フォームコントロールの色 Misako 07/3/25(日) 13:56 発言[未読]
【47885】Re:フォームコントロールの色 マキチャン 07/3/25(日) 14:57 質問[未読]
【47886】Re:フォームコントロールの色 マキチャン 07/3/25(日) 15:09 お礼[未読]
【47892】Re:フォームコントロールの色 ichinose 07/3/25(日) 20:17 発言[未読]
【47926】Re:フォームコントロールの色 マキチャン 07/3/26(月) 20:42 お礼[未読]

【47876】フォームコントロールの色
質問  マキチャン  - 07/3/25(日) 9:37 -

引用なし
パスワード
   EXCEL2007です。
フォームコントロールでボタンを作り、テキストを書きました。
コントロールの書式設定でテキストの色は変えられますが、
ボタン自体の色が変えられません。
EXCEL97,2000では、テキストにもボタンにも色を付けていたのですが
2007でのボタンの色の付け方がわかりません。
よろしくお願いします。

【47877】Re:フォームコントロールの色
発言  Misako  - 07/3/25(日) 9:52 -

引用なし
パスワード
   ▼マキチャン さん:
おはようございます。
プロパティー→例えばコマンドボタン→バックカラー→パレットで
出来ると思いますが・・・

【47880】Re:フォームコントロールの色
質問  マキチャン  - 07/3/25(日) 11:07 -

引用なし
パスワード
   Misakoさん、早速、回答ありがとうございます。
コマンドボタンはプロパティーでバックカラーなどの
指定ができますが、フォームコントロールで作ったほうの
ボタンには、2007では、テキストの色を変えることは
できるのですが、どうしても、ボタンの色を変えるための
ウインドウが出せないのです。もしかして、2007では
コマンドボタンの色を変えることはできないのでしょうか?

【47884】Re:フォームコントロールの色
発言  Misako  - 07/3/25(日) 13:56 -

引用なし
パスワード
   ▼マキチャン さん:
>フォームコントロールで作ったほうの
>ボタンには、2007では、テキストの色を変えることは
>できるのですが、どうしても、ボタンの色を変えるための
>ウインドウが出せないのです。もしかして、2007では
>コマンドボタンの色を変えることはできないのでしょうか?

失礼しました。
フォームコントロール?とは何のことでしょうか?
ユーザーフォーム上のコマンドボタンなどを指すのでしょうか?

【47885】Re:フォームコントロールの色
質問  マキチャン  - 07/3/25(日) 14:57 -

引用なし
パスワード
   ▼Misako さん:私も失礼しました。

>>フォームコントロールで作ったほうの
>>ボタンには、2007では、テキストの色を変えることは
>>できるのですが、どうしても、ボタンの色を変えるための
>>ウインドウが出せないのです。もしかして、2007では
>>コマンドボタンの色を変えることはできないのでしょうか?

上記の表現は間違いで、フォームコントロールで作ったほうの
ボタンは、色を変えられるのですがではなくて、ACTIVEX コントロール
で作ったボタンは、教えていただいた通り、プロパティで変えられますが
フォームコントロールで作ったほうのボタンの色が変えられません。

EXCEL2000などでは、表示→ツールバー→フォームで出てくる、EXCELシート
上に普通に配置するボタンです。
2007では開発→挿入で、フォームコントロールとACTIVEX コントロール
がペアで出てきますが、2000などとおなじ普通にシート上に作成するフォームコントロるのボタンです。
言葉を正しく理解してないせいもあり、説明を間違えてごめんなさい。

【47886】Re:フォームコントロールの色
お礼  マキチャン  - 07/3/25(日) 15:09 -

引用なし
パスワード
   MISAKOさんごめんなさい。
もともとフォームコントロールのボタンの色は
変えられなかったようですね。もともとというのはEXCEL2000,97
でも。私の勘違いのようでした。
お騒がせしました。

【47892】Re:フォームコントロールの色
発言  ichinose  - 07/3/25(日) 20:17 -

引用なし
パスワード
   こんばんは。

図形でフォームのボタンもどきを作ると背景色も変更できますよ!!

新規ブックの標準モジュールに

'=================================================================
Sub main()
  Dim btn As Shape
  [c10].Select
  Set btn = newbutton(ActiveSheet)
  btn.OnAction = "test"
  [f10].Select
  Set btn = newbutton(ActiveSheet, "Button2", , , , , &H800000, &HFFFF00)
  btn.OnAction = "test"
  Set btn = Nothing
End Sub
'=================================================================
Function newbutton(ByVal sht As Worksheet, _
         Optional ByVal txt As String = "", _
         Optional ByVal left As Single = -1, _
         Optional ByVal top As Single = -1, _
         Optional ByVal width As Single = 72, _
         Optional ByVal height As Single = 24, _
         Optional ByVal folor As Long = &H80000012, _
         Optional ByVal bcolor As Long = &HC0C0C0) As Shape
'sht 作成シート txt Caption文字列 left,top,width,heightは、ボタンの位置とサイズ
'fcolor 文字の色(RGB) bcolor ボタンの色(RGB)
  If txt = "" Then txt = "button"
  If left < 0 Then left = ActiveCell.left
  If top < 0 Then top = ActiveCell.top
  Set newbutton = sht.Shapes.AddShape(msoShapeRectangle, _
                    left, top, width, height)
  With newbutton
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Fill.ForeColor.RGB = bcolor
    .Fill.Transparency = 0#
    .Line.Visible = msoFalse
    .Shadow.Type = msoShadow14
    With .TextFrame
     .Characters.Text = txt
     .Characters.Font.color = folor
     .HorizontalAlignment = xlHAlignCenter
     .VerticalAlignment = xlVAlignCenter
     End With
    End With
End Function
'=================================================================
Sub test()
  MsgBox "ok"
End Sub


でmainを実行してみてください
セルC10とF10にボタンもどきの四角形(Rectangle)を作成します。
フォームのボタンに見えませんか?

【47926】Re:フォームコントロールの色
お礼  マキチャン  - 07/3/26(月) 20:42 -

引用なし
パスワード
   ichinose さんいつもありがとうございます。
今回も、教えていただき大変感謝しています。
なるほど、こうすると、ボタンに色が付いているように見えますね。
参考にさせていただきます。
ありがとうございました。

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