Ｐａｇｅ 127 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォントスタイルの変更 maeda 02/9/24(火) 13:45 ┗Re:フォントスタイルの変更 つん 02/9/24(火) 13:58 ┗Re:フォントスタイルの変更 maeda 02/9/24(火) 15:16 ┗Re:フォントスタイルの変更 つん 02/9/24(火) 16:11 ┗Re:フォントスタイルの変更 maeda 02/9/24(火) 17:17 ┗Re:フォントスタイルの変更 つん 02/9/24(火) 22:12 ┗やっと解決です maeda 02/9/25(水) 6:58 ─────────────────────────────────────── ■題名 ： フォントスタイルの変更 ■名前 ： maeda <fwhn0621@mb.infoweb.ne.jp> ■日付 ： 02/9/24(火) 13:45 -------------------------------------------------------------------------
| ラベルのフォントをボールドから標準に戻したいのですが上手くいきません。 Private Sub CommandButton1_Click() UserForm3.Label13.Font.Name = True Unload UserForm3 End Sub |
| maeda さん、こんにちは。 >ラベルのフォントをボールドから標準に戻したいのですが上手くいきません。 ボールドっちゅーのは「太字」のことですよね？ でしたら、 Private Sub CommandButton1_Click() UserForm3.Label13.Font.Bold = False Unload UserForm3 End Sub ではないでしょうか？ フォントを変えるんなら、「True」「False」ではなくて、 UserForm3.Label13.Font.Name = "ＭＳ ゴシック" の形になります。 |
| ▼つん さん： 説明不足でした。 以下の記述で「太字」に設定したラベル１３を「標準」に戻したいのですが方法が分かりません。 FontStyle = "標準" ではいけないような・・・ Private Sub Label13_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label13.Font.Bold = True UserForm3.Show End Sub |
| >以下の記述で「太字」に設定したラベル１３を「標準」に戻したいのですが方法が分かりません。 Label13.Font.Bold = True で設定したものを元に戻すなら、Falseを設定するだけでええんやないですか？ 「標準」って何が標準なんやろう？ 他に何か戻さなければいけない項目があるなら、 おそらく一つ一つ書かないとダメだと思いますが・・・ >FontStyle = "標準" ではいけないような・・・ FontStyleあるいは、Font.Styleってプロパティはないですよね。 ちょっと飲み込みが悪くてすみません(T_T) |
| ▼つん さん： >>以下の記述で「太字」に設定したラベル１３を「標準」に戻したいのですが方法が分かりません。 > >Label13.Font.Bold = True > >で設定したものを元に戻すなら、Falseを設定するだけでええんやないですか？ >「標準」って何が標準なんやろう？ >他に何か戻さなければいけない項目があるなら、 >おそらく一つ一つ書かないとダメだと思いますが・・・ > >>FontStyle = "標準" ではいけないような・・・ > >FontStyleあるいは、Font.Styleってプロパティはないですよね。 > >ちょっと飲み込みが悪くてすみません(T_T) こちらこそ説明不足で！ 何がやりたいかは、オブジェクトにマウスを合わせたら「Caption」を太字にする。マウスを外したら、太字でない（強調表示）ように表示させる。 このようにしたいのですが。 |
| こんばんは >こちらこそ説明不足で！ 何がやりたいかは、オブジェクトにマウスを合わせたら「Caption」を太字にする。マウスを外したら、太字でない（強調表示）ように表示させる。 このようにしたいのですが。 ということは、フォントの設定の戻し方そのものではなく、 どのタイミングで戻すか？というのが問題なのでしょうか？ ラベルにカーソルを合わせている時のみ、「太字」ということ？ でしたら、 Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.Font.Bold = True End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.Font.Bold = False End Sub という感じで、ユーザーフォームにマウスを会わせた時点で戻すようにしたらいかがですか？ 隙間なく他のコントロールとくっついていたら、そのコントロールのMouseMoveイベントにも書く必要がありますが・・・ これでどーですかー？ |
| ▼つん さん： >という感じで、ユーザーフォームにマウスを会わせた時点で戻すようにしたらいかがですか？ >隙間なく他のコントロールとくっついていたら、そのコントロールのMouseMoveイベントにも書く必要がありますが・・・ > >これでどーですかー？ はい！ありがとうございました。 やっと解決です、なかなか満足。 |