コメントの位置移動と自動サイズ調整とフォント設定

公開日：2013年5月以前　最終更新日：2020-02-23

コメントの位置移動と自動サイズ調整とフォント設定

コメントの位置をセルの横にぴったりくっつけて、サイズし入力文字列に応じて自動サイズ調整に設定します。
正直言って、そんなに使い道があるとは思えませんが、ごくたまに必要にる場合も出てきます。

そもそも、この位置はコメントの表示で、常時表示する場合の位置です。
コメント非表示でのポップアップ位置ではありませんので、この点は理解しておいてください。

コメントの位置移動と自動サイズ調整とフォント設定の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

コメントの位置移動と自動サイズ調整とフォント設定の解説

Cells.SpecialCells(xlCellTypeComments)
コメントのあるセルを取得しています。

コメントの位置をセルの位置に合わせるには、
注意点は、Commentオブジェクトの下のShapeオブジェクトの位置を指定します。

自動サイズに設定するには、
さらに下のTextFrameオブジェクトのプロパティのAutoSizeを設定します。

フォントの設定は、
さらに下のCharactersオブジェクトの下のFontのプロパティを設定する必要があります。

ホーム
マクロVBA応用編
マクロVBAサンプル集
コメントの位置移動と自動サイズ調整とフォント設定

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

コメントの位置移動と自動サイズ調整とフォント設定

コメントの位置移動と自動サイズ調整とフォント設定のVBA

コメントの位置移動と自動サイズ調整とフォント設定の解説

同じテーマ「マクロVBAサンプル集」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る