エクセルで沢山のテキストボックスのフォントを一括して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ランキング
-
エクセルのワードアートのフォ...
-
ダガーの入力の仕方
-
テキストボックスのフォンを変...
-
エクセルVBAでのワードアート操...
-
英数字用フォントでギリシア文...
-
オープンオフィスのワード機能...
-
文字がMS明朝になってしまいます
-
ワード、縦の列がそろわない(...
-
英字小文字のエル(l)と数字...
-
Macでピンインを文章中に入力し...
-
英文フォントで単位を入力(win...
-
アイフォン です。こんな感じの...
-
同一セル内のX番目の文字のみ...
-
ム・ム・ム・・・出てきませー...
-
エクセル又はワードでの数字に...
-
大きな文字を印刷したいのです...
-
キーボードのキー右下にある文...
-
エクセルに貼付けたURLが青文字...
-
「芦」の字が変換できません
-
エクセルで挿入した画像を背面...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのワードアートのフォ...
-
ダガーの入力の仕方
-
文字がMS明朝になってしまいます
-
英数字用フォントでギリシア文...
-
Jpegの写真に文字を入れる方法。
-
オープンオフィスのワード機能...
-
英文フォントで単位を入力(win...
-
入力規則のリストのフォントを...
-
ディズニーフォントとミッキー...
-
Excel上における発音記号の入力
-
excel 行番号
-
ワード、縦の列がそろわない(...
-
エクセルVBAでのワードアート操...
-
リットルの文字
-
英字小文字のエル(l)と数字...
-
フオントサイズが72以上になる...
-
ペイントの不思議な動き
-
横三角記号
-
エクセル フォントサイズの変...
-
テキストボックスのフォンを変...
おすすめ情報