クールに見えるコメント枠を作る

クールに見えるコメント枠を作る
クールに見えるコメント枠を作る

リンクユニット


マクロ 59回

ユーザー名無しで見栄えのするコメント枠を作るマクロ

コメントは便利で役立つ機能ですが、いつもワンパターンになりがちです。
(サンプルファイルは、こちらから マクロ59回サンプルデータ

ユーザー名無しのコメント

3行マクロ講座の方でユーザー名無しのコメントを作るというマクロ作りました。
クールに見えるコメント枠を作るマクロ1
ユーザー名がないだけでも、スッキリしたと思う方も多いかと思いますが、文字も小さいですし、好きなフォントではないという場合もあります。どうせ作るなら、もっとおしゃれなコメント枠にしたいですね。
クールに見えるコメント枠を作るマクロ2

コメントのフォントを変更する

元のコードに数行追加して、使用するフォントを変更して、サイズも調整しましょう。
クールに見えるコメント枠を作るマクロ3
コードは以下のようになりました。With Selection.でコメント枠を選択して名前とサイズを指定しています。
Sub ユーザー名なしのコメントを作る2()
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = True
    ActiveCell.Comment.Shape.Select True
        With Selection.Font
            .Name = "メイリオ"
            .Size = 12
        End With
End Sub
フォントの名前とサイズを指定して実行した状態です。
クールに見えるコメント枠を作るマクロ4
スポンサーリンク
スポンサーリンク

コメントの色を変更して、さらに影をつけるマクロ

今度は、さらに見栄えをよくするために、コメントの塗りつぶしの色を更して、さらに影をつけるようにします。
クールに見えるコメント枠を作るマクロ5
Sub コメントを作るrgbSteelBlue()
    With ActiveCell
            .AddComment
            .Comment.Visible = True
            .Comment.Shape.Select True
    End With
     With Selection.Font
            .Name = "メイリオ"
            .Size = 12
      End With
    With Selection.ShapeRange.Fill
        .ForeColor.RGB = rgbSteelBlue
        .Visible = msoTrue
        .Transparency = 0.3
    End With
     With Selection.ShapeRange.Shadow
        .ForeColor.RGB = rgbPowderBlue
        .Visible = msoTrue
        .Type = msoShadow1
    End With
    End Sub
With Selection.ShapeRange.Fill の部分で、コメント枠の塗りつぶしをまとめて設定しています。
    With Selection.ShapeRange.Fill
        .ForeColor.RGB = rgbSteelBlue
        .Visible = msoTrue
        .Transparency = 0.3
    End With
With Selection.ShapeRange.Shadowの部分で、コメント枠の影をまとめて設定しています。
     With Selection.ShapeRange.Shadow
        .ForeColor.RGB = rgbPowderBlue
        .Visible = msoTrue
        .Type = msoShadow1
    End With
では実行してみましょう。
クールに見えるコメント枠を作るマクロ6

色の設定を変更する

色の設定は、カンタンに変更することができます。たとえば、.ForeColor.RGB = rgbSteelBlue.ForeColor.RGB = rgbPurple に変えたりすれば、色を変えることができます。
クールに見えるコメント枠を作るマクロ7
.Transparency = 0.3の部分で塗りつぶしの透明度を設定しています。透明度は、0.0~から1.0の間で指定します。
クールに見えるコメント枠を作るマクロ8
コメント枠を塗りつぶしの色や影の色を指定してコードにしておくと、コメントを入れる時にとても気持ちよく仕事ができると思います。おためしください。