コメントの位置を移動する（Comment）

最終更新日：2013-05-14

コメントの位置を移動する（Comment）

ホームページの検索にあったので、作成してみました。

正直言って、使い道があるのかは、よく解りません。（笑）

コメントの位置を、セルの右横ぴったりにくっ付けます。

ただし、この位置は、コメントの表示で、常時表示する場合の位置です。

コメント非表示でのポップアップ位置ではありません。




Sub sample()
　　Dim myRange As Range
　　For Each myRange In 
Cells.SpecialCells(xlCellTypeComments)
　　　　With 
myRange
　　　　　　.Comment.Shape.Top = myRange.Top
　　　　　　.Comment.Shape.Left = 
myRange.Left + myRange.Width
　　　　End With
　　Next
End 
Sub

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

後は、コメントの位置を、セルの位置に合わせているだけですね。

何に使うかは、ご自由にどうぞって事で、勘弁して下さい。

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

コメントの位置を移動する（Comment）
図をセル内に強制的に収める（Shape）

図（画像等）をエクセルに貼り付けた後、セルの移動と一緒に動かない場合があります。もちろん、図の書式のプロパティでは、「セルに合わせて移動」にしてある場合の話です。図がセルを大きくはみ出しているいる場合（隣のセルよりさらにはみだしている場合）は、セルのコピー、移動にくっていてきません。

図を確認しながら消していく（Shape）

行削除や、列削除等により、図が見えなくなってしまう事があります。しかも、セルのコピーで沢山出来てしまい、困った事ありませんか。「ジャンプ」→「セル選択」で、オブジェクトで一括選択して削除する事は出来ます。

オートシェイプを他ブックの同じ位置に貼り付ける（Shapes,DrawingObjects）

コメントでリクエストを頂きました。「１つのシートにバラバラにあるオートシェープを一度に選択して、コピーし、ほかのブックのあるシートの同じ位置にペーストしたい」というもの。これには色々な問題が含まれています。

全シートの画面キャプチャを取得する（keybd_event）

資料等の作成で、画面キャプチャすることがあると思います。そこで、全シートの画面キャプチャを、新規シートに全て取得するプログラムです。Alt+PrntScrnで、エクセルのウインドウのみキャプチャしています。

写真の取込方法について（Pictures.Insert,Shapes.AddPicture）

写真を取り込んで、アルバムのようにしたり、各種の資料を作ったりと、写真をエクセルに取り込む機会は多いようです。しかし、最近は写真のサイズも大きくなり、手動で取り込んだままではスクロールもままならない状態となってしまいます。そこで、写真ファイルを指定し、A列に上から順番に貼り付け、さらにセル内に収まるように縮小するマクロになります。

写真をサムネイルに変換して取り込む（Shapes.AddPicture）

写真を取り込んだ場合、リンクすると原本が無いとみられず、リンクせずに取り込むとファイルサイズが巨大化してしまいます。そこで、サムネイルを作成し、それをセルに貼り付け、原本へのハイパーリンクを付けておくようにします。写真の取込方法については、写真の取込方法について（Pictures.Insert,Shapes.AddPicture）こちらをご覧ください。

円グラフの色設定（Chart,SeriesCollection）

円グラフの色を、元の表から設定します。以下は、ウイザードでグラフを作成した状態です。A列に指定した、塗りつぶし色を、グラフに反映させます。たった、これだけです。手作業よりは、はるかに簡単ですし、応用範囲が広いと思います。

棒グラフ・折れ線グラフのサンプルマクロ

グラフはプロパティ・メソッドも多いので、自分の覚書もかねて掲載しました。この元データから、以下のグラフが作成されます。解説は、プログラム内のコメントを参考にして下さい。系列データのデータ数が増えた時に、データ範囲を変更するマクロも掲載しておきます。

人口ピラミッドのグラフをマクロで作成

人口ピラミッドのグラフ作成は、設定項目が多く、かなり面倒です。マクロでサクッと作って、細かい部分を手動で設定できれば楽です。この表から、以下のグラフを作成します。手動で設定すると、かなり多くの手順が必要になります。

グラフで特定の横軸の色を変更し基準線を引くマクロ

特定の横軸のみ色を変更する、つまり、基準値や下限・上限等に線を引きたい場合のVBAになります。手動でやろえとすると結構面倒なので、いざやろうとするとなかなか出来なかったりします。グラフの元データに線を引きたい数値の系列をシートに追加しておくと、もう少し楽にできますが、ここでは、シートには手を加えずに基準線を引いています。