0

VBA Excel マクロのデフォルトの水色のボタンではなく、光沢のあるボタンを使用することはできますか?

例: ここに光沢のある光沢のあるボタンがあります。これは VBA で使用できますか? これ
の代わりに。

4

3 に答える 3

2

少し手間ですが、できます。Gary's Student が示唆したように、(2 つのイメージ コントロールを介して) 写真を使用できます。このサイト ( http://www.glassybuttons.com/glassy.php ) にアクセスして、状況に適したボタンをデザインし、ダウンロードしてください。

2 つの .jpg イメージを使用して、いくつかのイベントを関連付ける必要があります。

1) デフォルトのボタン イメージとして使用するイメージを Image1 コントロールの picture プロパティに設定します。Image1 のサイズをボタンのサイズにできるだけ近づけ、BorderStyle を None に設定します。

2) マウスオーバー ボタンの画像として使用する画像を Image2 コントロールの画像プロパティに設定します。ここでも、Image2 のサイズをボタンのサイズにできるだけ近づけ、BorderStyle を None に設定します。

3) 背景ベースとして空白のイメージ コントロールを使用します。コントロールをボタン イメージのサイズより少し大きくします。2 つの画像コントロールを重ねて (両方とも同じ .Top および .Left プロパティ値を持つように)、Image3 (背景画像) の上に配置します。

3a) Image1 が上にあることが重要です (順序オプションを使用して、Image2 が上にある場合は Image1 の後ろになるように送信できます)。両方の画像が Image3 の上にある必要があります。

4) Image1 の MouseMove イベントを次のように使用します。

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Visible = False
    Image2.Visible = True
End Sub

5) Image3 の MouseMove イベントを次のように使用します。

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Visible = True
    Image2.Visible = False
End Sub

6) Image2 の画像クリック イベントを設定して、ボタンに実行させたいことを実行します。

繰り返しますが、少し手間がかかりますが、時間をかけてセットアップすれば、見栄えがよくなります。また、Image2 の「SpecialEffect」をいじって、ボタンが押されている感覚を与えることもできます。

だれかが簡単で公開されている共有ファイル ホスティング サイトを推奨できる場合は、上記の手順を示すサンプル ワークブックを投稿したいと思います。

于 2013-06-28T12:45:12.247 に答える
0

このビデオで提案されているように、このActive X ユーザー コントロールを試してください。ワークシートに追加できるかどうかはわかりません。vb6 ランタイムも必要になる場合があります。面倒くさそうに聞こえますが、それだけの価値があるかどうかはわかりません... も参照してください

于 2013-06-28T11:22:20.643 に答える