エクセルで沢山のテキストボックスのフォントを一括してMSPゴシックに変更するマクロとして以下を実行すると、処理自体は行われているようなのですが結果は元のフォンのままです。
Sub fonto()
Dim con As Integer
For con = 1 To ActiveSheet.TextBoxes.Count
ActiveSheet.TextBoxes(con).Characters.Text = ""
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Next con
End Sub
どこがおかしいのでしょうか?
また、これだと文字を削除してしまうので、削除しない方法も知りたいのですが。
No.3ベストアンサー
- 回答日時:
「元のフォントのまま」というのは、下のコードで < Selection > が、原因です。
For ~ Next で、テキストボックスの「インデックス番号」は、切り替えて
いても「セレクト」は、していませんよね。
With Selection.Characters(Start:=1, Length:=1).Font
それに、フォントを変えるのは、先頭の1文字だけですか?
もし、全体のフォント種でしたら、
With TextBoxes(con).Characters.Font
とするべきなのです。
あと、「文字を削除してしまう」のは、次の行があるからです。
ActiveSheet.TextBoxes(con).Characters.Text = ""
ここの TextBoxes(con) が 次の行の Selection の替わりにあったら・・・
おしかったぁ~
ありがとうございました。
>With TextBoxes(con).Characters.Font
>とするべきなのです。
正確には、With ActiveSheet.TextBoxes(con).Characters.Font でした。
でも助かりました。
No.2
- 回答日時:
#1の訂正です。
貼り付ける場所を間違えてしまいました。フォントだけを変えるのであれば、
Sub fonto()
Dim MyTextBox
For Each MyTextBox In ActiveSheet.TextBoxes
With MyTextBox
.Font.Name = "MS Pゴシック"
End With
Next
End Sub
文字を削除してしまったのは、
ActiveSheet.TextBoxes(con).Characters.Text = ""
の部分だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) エクセル VBA 条件付き書式 簡略化したい 2 2022/06/02 17:46
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのワードアートのフォ...
-
文字がMS明朝になってしまいます
-
ダガーの入力の仕方
-
英数字用フォントでギリシア文...
-
ワードで数字を入力⇒エンター⇒...
-
英文フォントで単位を入力(win...
-
ワード、縦の列がそろわない(...
-
アリス→ァㇼㇲ のような "捨て...
-
キーボードのキー右下にある文...
-
エクセルに貼付けたURLが青文字...
-
VBAで文字を反映させると255...
-
カシオ KLD-300 ”ウ”の濁点の...
-
ハイフンの入力の仕方が分かり...
-
カーソルの暴走
-
「芦」の字が変換できません
-
PCで文字入力するときに表示さ...
-
文字の上にチルダを表示する方法
-
追加入力の文字だけ色を変えた...
-
「會」をパソコンで打つときに...
-
ExcelをWordの代わりに使うコツ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのワードアートのフォ...
-
ダガーの入力の仕方
-
文字がMS明朝になってしまいます
-
Jpegの写真に文字を入れる方法。
-
ディズニーフォントとミッキー...
-
英数字用フォントでギリシア文...
-
英文フォントで単位を入力(win...
-
エクセルVBAでのワードアート操...
-
リットルの文字
-
オープンオフィスのワード機能...
-
入力規則のリストのフォントを...
-
ペイントの不思議な動き
-
ワードアートでDHP特太ゴシック...
-
ウィンドウズアップデートは所...
-
アリス→ァㇼㇲ のような "捨て...
-
ワードで大きな文字を作る方法
-
テキストボックスのフォンを変...
-
Excel上における発音記号の入力
-
Excel2010 セル内の文字色を一...
-
お世話になりたす。 中国国際航...
おすすめ情報