-PR-
解決
済み

テキストボックスのフォントサイズの復元

  • すぐに回答を!
  • 質問No.95917
  • 閲覧数168
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (116/195)

エクセルのシート上にある、図形のテキストボックスのフォントサイズに「12」をセットしておいて、シート上に配置してあるコントロールボタンをクリックする事で、変更されたサイズから「12」へもどす仕組みを作りたいのですが・・・

テキストボックスのフォントサイズ 「12」から、テキストボックスをアクティブにし、ツールバーでフォントサイズを変更する。
↓ ** その後
シート上に配置されたボタンを押すと元の「12」に戻る

※ エクセル97、2000で使用(作成は97)

こんなことできますか? できれば、どなたか教えて下さい。宜しくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

「テキストボックスの大きさを、基準の大きさの戻す(エクセルVBA)」と同じ前提です。

シート1のコードウインドウに貼り付け(例)
Private Sub CommandButton12_Click() 'フォントを元に戻すボタン
Font12set tbxClickName
End Sub

標準モジュールに貼り付け
Public Sub Font12set(txtName As String) 'フォントサイズを12に戻す
If Len(txtName) <> 0 Then '選択したテキストボックス名
With ActiveSheet.Shapes(txtName) '選択したテキストボックス
.TopLeftCell.Select
.Select
With Selection
.Font.Size = 12
.ShapeRange.Fill.ForeColor.SchemeColor = 65
End With
.TopLeftCell.Select
End With
End If
tbxClickName = ""
End Sub
補足コメント
rurucom

お礼率 59% (116/195)

nishi6さん! 助けて下さい!
すみません、あれからしばらくなりますが、「テキストボックスの大きさを、基準の大きさの戻す」と同様にいろいろやっていますがうまく行きません。同じく「テキストボックスに値を入れる(4)」も前に進んでおりません。「テキストボックスに値を入れる(3)」のその後の方はいかがでしょうか?

テキストボックスの大きさ、フォントを基準に戻すのは、上書きせずに終了させれば、もとに戻るわけですから、わざわざボタンを作らなくてもいいかなぁとも思っているんですが、やはりあった方が便利そうです。
上書きせずに終了の方もうまく行かず、現在は、本体を終了させて、データを上書きさせて、それぞれバラバラに処理している状態です。

取急ぎ「テキストボックスに値を入れる(3)」の課題のつづきで困っています。どうか宜しくお願いします。みすてないでー・・・・
投稿日時 - 2001-07-18 20:39:42
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ