Ｐａｇｅ 440 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックスでの表示 平 02/12/4(水) 11:02 ┗Re:テキストボックスでの表示 こうちゃん 02/12/5(木) 9:21 ┗テキストボックスではなく・・・ 平 02/12/5(木) 15:41 ┣Re:テキストボックスではなく・・・ つん 02/12/5(木) 16:11 ┣Re:フォームのテキストボックスではなく・・・ りん 02/12/5(木) 16:29 ┗Re:テキストボックスではなく・・・ 平 02/12/9(月) 11:42 ─────────────────────────────────────── ■題名 ： テキストボックスでの表示 ■名前 ： 平 ■日付 ： 02/12/4(水) 11:02 -------------------------------------------------------------------------
| コマンドボタンを押した時にテキストボックスにメッセージを 表示させようとしています。 その時にそのメッセージの一部だけ色や大きさを変更するには どうすればよろしいのでしょうか？ Private Sub CommandButton1_Click() TXT1.Text = "それは無理" End Sub 例えば上記の場合"無理"の部分だけ赤に変更したり、大きく 表示したり、という事です。 |
| 平さん、こんにちは >コマンドボタンを押した時にテキストボックスにメッセージを >表示させようとしています。 >その時にそのメッセージの一部だけ色や大きさを変更するには >どうすればよろしいのでしょうか？ > > Private Sub CommandButton1_Click() > TXT1.Text = "それは無理" > End Sub > >例えば上記の場合"無理"の部分だけ赤に変更したり、大きく >表示したり、という事です。 それは無理 だと思います。 わたしはこのような場合はラベルを複数作っておいて表示属性や色属性、位置を調整して表示しています。 ＃もしかして、できたりしますか？どなたか「できるョ」ってかたいらしたら、教えてください(^^;) |
| こうちゃん さん、こんにちは。 手の込んだご回答、ありがとうございます。 こういう事はテキストボックスの場合はできないのですね。 では、テキストボックスではなくセルに表示させる場合に 一部を色変えしたり、大きさを変えたりするのはできるのでしょうか？ |
| 平 さん、こうちゃん さん、こんにちは。 横から失礼します。 >では、テキストボックスではなくセルに表示させる場合に >一部を色変えしたり、大きさを変えたりするのはできるのでしょうか？ マクロの記録で試してみたのですけど、こんな感じで出来るみたいです。 With ActiveCell.Characters(Start:=2, Length:=2).Font .ColorIndex = 5 .Size = 15 End With 選択されたセルの値の、２〜３文字の色を青に、サイズを１５ポイントに変えてみました。 |
| 平さん、こんにちわ。 >手の込んだご回答、ありがとうございます。 >こういう事はテキストボックスの場合はできないのですね。 テキストボックスでも、シート上のテキストボックス（図形描画ツールバーで作成したもの）だと、出来ますよ。 内容はつんさんの（セルの場合）とほぼ同じです。 シート上に図形描画ツールバーで作成したテキストボックス(名前がText Box 1)と、コマンドボタンを２つ準備します。 Private Sub CommandButton1_Click() ActiveCell.Activate '念のため With ActiveSheet.Shapes("Text Box 1").TextFrame .Characters.Text = "無理すんな（笑）" .Characters.Font.ColorIndex = 0 .Characters(Start:=1, Length:=2).Font.ColorIndex = 3 End With End Sub Private Sub CommandButton2_Click() ActiveCell.Activate '念のため With ActiveSheet.Shapes("Text Box 1").TextFrame .Characters.Text = "■■■■■" For II% = 1 To 5 With .Characters(Start:=II%, Length:=1).Font Select Case II% Case 1: .ColorIndex = 3 Case 2: .ColorIndex = 46 Case 3: .ColorIndex = 6 Case 4: .ColorIndex = 10 Case 5: .ColorIndex = 5 End Select End With Next End With End Sub 「ActiveCell.Activate」 というのXL97ではシート上のコマンドボタンがらみのエラーがよくあるので念のためつけてあります。 |
| つんさん、りんさん、ありがとうございます。 早速挑戦してみます。 また何かわからない事があった時は宜しくお願い致します。 |