ユーザーフォームのラベルを立体的に表示するSpecialEffect

タイトルなどで使うラベルを見た目をかっこよく見せたいと思いませんか？

コマンドボタンではできないラベルだからできる凹凸をつけた表示方法を活用して、コマンドボタンの代わりとして立体感のあるオリジナリティー溢れるラベルを使ってみませんか？

誰でも簡単にできるラベルのプロパティから設定ができますし、条件に応じて浮き出たり、凹ませたりもできるようにしましょう。

ラベルの表示を立体的に凹凸をつける
1. ラベルのプロパティで凹凸をつける
2. 条件によってラベルの文字を凹凸表示する
ユーザーフォームでオリジナルフォーム作ろう

ラベルの表示を立体的に凹凸をつける

ユーザーフォームにラベルを配置すると初期設定では見慣れた普通のラベル表示となっていまが、この初期設定状態は「fmSpecialEffectFlat」が選択されている状態なのです。

ラベルのプロパティで凹凸をつける

まずは、ラベルの文字や書体・大きさなど文字色や背景色など様々な項目を設定できるプロパティで設定してみましょう。

１、上の図のように立体的に見せたいラベルをクリック

２、プロパティウィンドウが左下に表示されます

３、立体的に見せるにはSpecialEffectをクリック

４、▼が表示されるのでクリック

５、ラベルの表示表法を選択します

初期設定のfmSpecialEffectFlatを含め全部で5種類あります。

定数	値	立体表示
fmSpecialEffectFlat	0
fmSpecialEffectRaised	1
fmSpecialEffectSunken	2
fmSpecialEffectEtched	3
fmSpecialEffectBump	6

このように見た目が変わるとユーザーフォームの印象も変わりますよね。

このようにプロパティでラベルの凹凸を設定した場合は、当然ながら条件にかかわらず表示が固定されてしまいます。

そこでラベルが押されたら浮きだして、もう一度押されたら元も戻ることができるようにして実用的にしましょう。

条件によってラベルの文字を凹凸表示する

先ほどもお話しした通りラベルの文字の初期設定はフラット状態なので、ラベルが1回押されたら「男性」、もう1回押されたら「女性」、更にもう1回おされたら、「未選択」というように性別選択を例にラベルの文字と凹凸を設定してみましょう。

男女でラベルの凹凸をつける

Private Sub Label1_Click()
If UserForm6.Label1.SpecialEffect = fmSpecialEffectFlat Then
With UserForm6.Label1
.SpecialEffect = fmSpecialEffectRaised
.Caption = “男性”
End With
ElseIf UserForm6.Label1.SpecialEffect = fmSpecialEffectRaised Then
With UserForm6.Label1
.SpecialEffect = fmSpecialEffectSunken
.Caption = “女性”
End With
ElseIf UserForm6.Label1.SpecialEffect = fmSpecialEffectSunken Then
With UserForm6.Label1
.SpecialEffect = fmSpecialEffectFlat
.Caption = “未選択”
End With
End If
End Sub