[XL]指定したセルを基準に図形オブジェクトを作成する方法

詳細

VBA で任意のオブジェクトを作成するためには、それぞれのオブジェクトの Addメソッドを使用します。この Add メソッドの引数は、座標を指定することができます。
指定したセルを基準にオブジェクトを作成するには、まず指定したセルの座標を取得します。このために Range オブジェクトの Left プロパティ、Top プロパティを使用します。

サンプル

次のサンプル モジュールでは、ワークシート Sheet1 のセル範囲 $A$1:$B$2 の座標と大きさを取得し、それと同じ座標および大きさのテキスト ボックスを作成しています。

  Sub CreateTextBox()
      Dim pleft, ptop, pwidth, pheight
      pleft = Worksheets("Sheet1").Range("$A$1:$B$2").Left
      ptop = Worksheets("Sheet1").Range("$A$1:$B$2").Top
      pwidth = Worksheets("Sheet1").Range("$A$1:$B$2").Width
      pheight = Worksheets("Sheet1").Range("$A$1:$B$2").Height
      Worksheets("Sheet1").TextBoxes.Add pleft, ptop, pwidth, pheight
  End Sub