コメントの位置移動と自動サイズ調整とフォント設定
コメントの位置をセルの横にぴったりくっつけて、サイズし入力文字列に応じて自動サイズ調整に設定します。
正直言って、そんなに使い道があるとは思えませんが、ごくたまに必要にる場合も出てきます。
コメント非表示でのポップアップ位置ではありませんので、この点は理解しておいてください。
コメントの位置移動と自動サイズ調整とフォント設定のVBA
Sub sample()
Dim myRange As Range
For Each myRange In Cells.SpecialCells(xlCellTypeComments)
With myRange.Comment.Shape
.Top = myRange.Top
.Left = myRange.Offset(, 1).Left
'以下でも同じ
'.Left = myRange.Left + myRange.Width
.TextFrame.AutoSize = True
.TextFrame.Characters.Font.Size = 11
.TextFrame.Characters.Font.Color = vbBlue
End With
Next
End Sub
コメントの位置移動と自動サイズ調整とフォント設定の解説
コメントのあるセルを取得しています。
注意点は、Commentオブジェクトの下のShapeオブジェクトの位置を指定します。
さらに下のTextFrameオブジェクトのプロパティのAutoSizeを設定します。
さらに下のCharactersオブジェクトの下のFontのプロパティを設定する必要があります。
同じテーマ「マクロVBAサンプル集」の記事
コメントの位置移動と自動サイズ調整とフォント設定
図をセル内に強制的に収める（Shape）
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 37本目：グラフの色設定｜VBA練習問題（12月1日）
VBA100本ノック 36本目：列の並べ替え｜VBA練習問題（12月1日）
VBA100本ノック 35本目：条件付き書式｜VBA練習問題（11月29日）
VBA100本ノック 34本目：配列の左右回転｜VBA練習問題（11月28日）
VBA100本ノック 33本目：マクロ記録の改修｜VBA練習問題（11月26日）
VBA100本ノック 32本目：Excel終了とテキストファイル出力｜VBA練習問題（11月25日）
VBA100本ノック 31本目：入力規則｜VBA練習問題（11月24日）
将棋とプログラミングについて～そこには型がある～｜エクセル雑感（11月22日）
VBA100本ノック 30本目：名札作成（段組み）｜VBA練習問題（11月22日）
VBA100本ノック 29本目：画像の挿入｜VBA練習問題（11月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- コメントの位置移動と自動サイズ調整とフォント設定
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。