Home > 即効テクニック > Excel VBA > セル操作関連のテクニック > セルの座標を取得する(Top/Leftプロパティ)

即効テクニック
セル操作関連のテクニック

セルの座標を取得する(Top/Leftプロパティ)

(Excel 2000)
セル範囲の上端からの距離と左端からの距離をポイント単位で取得します。よって、これによりセル範囲の左上の座標を取得することができます。Width/Heightプロパティと組み合わせれば、セル範囲の座標/大きさの取得が可能です。これらを組み合わせて、図形やグラフの位置をセルにぴったりと合わせることが可能です。

　構文  Object.Top     上端からの距離  取得のみ
        Object.Left    左端からの距離  取得のみ

　設定項目    内容
  Object      Rangeオブジェクト

次のサンプルは、アクティブシートの１つめの埋め込みグラフをセルC2〜G13の範囲に配置します。
●サンプル● 
Sub TopAndLeftSamp1()

 Range("C2:G13").Select           '--サイズを合わせるセル範囲を選択

 With ActiveSheet.ChartObjects(1) '--1つめのグラフに関して
     .Top = Selection.Top         '--上端を合わせる
     .Left = Selection.Left       '--左端を合わせる
     .Width = Selection.Width     '--幅を合わせる
     .Height = Selection.Height   '--高さを合わせる
    End With

End Sub