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

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


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


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


 次のサンプルは、アクティブシートの1つめの埋め込みグラフをセル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

Excel2000



戻る


Excel Word Access VBA! モーグ