VBA コメントのフォント・書式を一括変更 2選:今すぐできる

エクセルマクロで、コメントのフォントや書式設定を一括変更するVBAコードをご紹介します。

フォント種類・文字サイズ・文字色・背景色をまとめて変更できます。
ぜひお試しください😉

コメントのフォント一括変更(パターン1)

以下のマクロを実行すると、コメントの書式・フォントをまとめて変更します。

Sub コメントのフォント一括変更()

Dim MyCom As Comment

    Application.ScreenUpdating = False

    'すべてのコメントをループ
    For Each MyCom In ActiveSheet.Comments
    
        With MyCom.Shape
        
            'フォントサイズ変更
            .TextFrame.Characters.Font.Size = 20
        
            'フォント種類変更
            .TextFrame.Characters.Font.Name = "Meiryo UI"
        
            '文字色変更（黄色）
            .TextFrame.Characters.Font.Color = RGB(255, 255, 0)
         
            '背景色 変更（赤）
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
        
        End With
    Next MyCom
    
    Application.ScreenUpdating = True
    
End Sub

マクロ実行前

マクロ実行後

全コメントのフォント種類、フォントサイズ、文字色、背景色を一括で変更します。

コメントのフォント一括変更(パターン2)

以下のマクロを実行すると、コメントの書式・フォントをまとめて変更します。

Sub コメントのフォント一括変更()

Dim MyCom As Comment

    Application.ScreenUpdating = False

    'すべてのコメントをループ
    For Each MyCom In ActiveSheet.Comments
    
        With MyCom.Shape
        
            'フォントサイズ変更
            .TextFrame.Characters.Font.Size = 13
        
            'フォント種類変更
            .TextFrame.Characters.Font.Name = "Meiryo UI"
        
            '文字色変更（黒）
            .TextFrame.Characters.Font.Color = RGB(0, 0, 0)
            
            '枠線 非表示
            .Line.Visible = msoFalse
            
            '自動でサイズ調整
            .TextFrame.AutoSize = True
            
            '背景に好きな画像設定
            .Fill.UserPicture "C:\Users\admin\pic.png"
        
        End With
    Next MyCom
    
    Application.ScreenUpdating = True
    
End Sub

マクロ実行前

マクロ実行後

コメントのフォント・書式を自動変更します。

コメントのデザインを周りと差別化することができます。

 
 
この記事がお役に立ちますと幸いです🍀
 

【エクセルマクロ】コメントを自動入力２選：成果を出す時短術

...

kirinote.com

2023.07.17