エクセルのシート上にある、図形のテキストボックスのフォントサイズに「12」をセットしておいて、シート上に配置してあるコントロールボタンをクリックする事で、変更されたサイズから「12」へもどす仕組みを作りたいのですが・・・
テキストボックスのフォントサイズ 「12」から、テキストボックスをアクティブにし、ツールバーでフォントサイズを変更する。
↓ ** その後
シート上に配置されたボタンを押すと元の「12」に戻る
※ エクセル97、2000で使用(作成は97)
こんなことできますか? できれば、どなたか教えて下さい。宜しくお願いします。
No.1ベストアンサー
- 回答日時:
「テキストボックスの大きさを、基準の大きさの戻す(エクセル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
この回答への補足
nishi6さん! 助けて下さい!
すみません、あれからしばらくなりますが、「テキストボックスの大きさを、基準の大きさの戻す」と同様にいろいろやっていますがうまく行きません。同じく「テキストボックスに値を入れる(4)」も前に進んでおりません。「テキストボックスに値を入れる(3)」のその後の方はいかがでしょうか?
テキストボックスの大きさ、フォントを基準に戻すのは、上書きせずに終了させれば、もとに戻るわけですから、わざわざボタンを作らなくてもいいかなぁとも思っているんですが、やはりあった方が便利そうです。
上書きせずに終了の方もうまく行かず、現在は、本体を終了させて、データを上書きさせて、それぞれバラバラに処理している状態です。
取急ぎ「テキストボックスに値を入れる(3)」の課題のつづきで困っています。どうか宜しくお願いします。みすてないでー・・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) Word2019と365の互換性について質問 1 2023/06/10 19:33
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- その他(ソフトウェア) LibleOffice Calc のテキストボックス 4 2023/08/16 09:37
- Visual Basic(VBA) excel vba でユーザーフォーム入力ができない 2 2022/12/12 14:42
- CAD・DTP vectorworks、winとmacでデータを共有する場合 1 2023/02/20 16:41
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- Visual Basic(VBA) Vba テキストボックスでボックスのサイズ超えると文字列入力できない 2 2022/05/20 08:09
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Excel(エクセル) [テーマのフォント]、[見出しのフォント]、[本文のフォント]とは何ぞや? 2 2023/02/27 09:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access Error3061 パラメータが...
-
Access レポート印刷するときに...
-
accessデータを指定したExcel、...
-
accessのフォームに設置したボ...
-
CSVファイルの「0落ち」にVBA
-
Access VBA を利用して、フォル...
-
Accessのデータ型の日付/時刻型...
-
Microsoft365にAccessってあり...
-
Access VBA [リモートサーバー...
-
Accessのことで教えてください...
-
Accessのフォーム上のテキスト...
-
Accessのデータ型の日付/時刻型...
-
Accessのスプレッドシートエク...
-
ACCESS VBA でのエラー解決の根...
-
accessでlaccdbファイルが削除...
-
【至急・画像あり】建物or住所...
-
Access IF文でテーブルに存在し...
-
実行時エラー3131 FROM 句の構...
-
AccessVBAについて テーブルの...
-
accessの代わりになるもの
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
ACCESS VBA でのエラー解決の根...
-
Accessのスプレッドシートエク...
-
Access VBA を利用して、フォル...
-
【Access】Dcount関数の複数条...
-
accessデータを指定したExcel、...
-
Accessレポートのチェックボッ...
-
Access VBA [リモートサーバー...
-
Vba Userformを前面に出すについて
-
Accessのリンクテーブルのパス...
-
実行時エラー3131 FROM 句の構...
-
Accessのフォーム上のテキスト...
-
CSVファイルの「0落ち」にVBA
-
Access 複数条件検索の設定が上...
-
アクセス 削除するレコードを含...
-
Access で半角スペースと全角ス...
-
access 更新クエリについて
-
Accessのクエリの結果を、既存...
おすすめ情報