ExcelVBAの備忘録～コメントの追加とサイズ調整～

▶ in ExcelVBA　posted 2016.04.15 Friday / 04:18

ExcelVBAで、コメントを追加してサイズを自動調整する方法です。

コメントを追加しただけだとあまり見栄えが良くない…
ので、サイズを自動調整するか直接サイズを指定します。





Sub コメント挿入()



    'A1セルにコメントを追加する

    Range("A1").AddComment "コメント1行目" & vbCrLf & "コメント2行目" _

    & vbCrLf & "コメント3行目は少し長めにしてみた"

    

    'A1セルのコメントサイズを自動調整する

    Range("A1").Comment.Shape.TextFrame.AutoSize = True



End Sub

何も指定しないとき

自動調整したとき

自動調整ではなく、コメントサイズを指定する場合は以下のようにする。

Range("A1").Comment.Shape.Width = 130
Range("A1").Comment.Shape.Height = 30

幅130、高さ30で指定したとき

ExcelVBAで、

コメントを挿入する
挿入したコメントのサイズを自動調整する
コメントのサイズを手動で指定する

以上、マクロの備忘録でした。

Trackbacks