[[20081126213848]]　『マクロでオートシェイプの位置を指定』（CHISA）　ページの最後に飛ぶ

『マクロでオートシェイプの位置を指定』（CHISA）

 オートシェイプについて質問です。

 テキストボックスを使い、オートシェイプの位置を入力して、
 オートシェイプを移動させたいです。

 マクロの記録をしてみました。

 オートシェイプを画面に表示させました。

 Sub Macro1()

 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 167.25, 49.5, 113.25, 48.75). _
        Select
 End Sub

 今度は移動してみました。

 Sub Macro2()

 ActiveSheet.Shapes("Rectangle 1").Select
 Selection.ShapeRange.IncrementLeft -99#

 End Sub

 移動するときは、移動する値（-99#のことです）が必要なのはわかったのですが、
 位置を指定して移動させることはできますか？
 （msoShapeRectangle, 167.25, 49.5, 113.25, 48.75で場所を指定するみたいな）

 わけわかんなくてすみません。
 よろしくお願いします。

 ※文章ちょっと訂正しました。

 （CHISA）

 ↓の様な事？
Sub Macro3()
    With ActiveSheet.Shapes("Rectangle 1")
        .Left = 167.25
        .Top = 49.5
    End With
End Sub

 これは最初の位置に移動しますが。

 (HANA)

 HANAさんできました！ありがとうございますm(__)m
 もうひとつ質問があります。
 オートシェイプのLeftとTopの位置の値を
 コマンドボタンを押して、テキストボックス1,2に表示することはできますか？

 お暇なときでよいので教えてください。。。
 (CHISA)

 えっと・・・・
TextBox1.Text = ActiveSheet.Shapes("Rectangle 1").Top
 こんなこと？

 (HANA)

 そのとおりです！HANAさんかんぺきですぅ！！
 ありがとうございましたm(__)m

 (CHISA)

コメント返信：