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



何も指定しないとき
2016-04-15_com1

 

自動調整したとき
2016-04-15_com2

 

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

 

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

 

幅130、高さ30で指定したとき
2016-04-15_com3

 

 

ExcelVBAで、

 

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

 

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



Trackbacks

Trackback URL : http://long-distance.jp/sb/sb.cgi/55


PAGE TOP