セル範囲の上端からの距離と左端からの距離をポイント単位で取得します。よって、
これによりセル範囲の左上の座標を取得することができます。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
|