Excel VBA質問箱 IV

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

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


34061 / 76738 ←次へ | 前へ→

【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)を作成します。
フォームのボタンに見えませんか?
0 hits

【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 お礼

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