オートシェイブをIncrementLeftプロパテ

オートシェイブをIncrementLeftプロパティで今ある位置から指定したポイントだけ左にするのではなく、
一番左から指定したポイント分の位置を指定するプロパティを教えてください。

今は、
Sub test()
ActiveSheet.Shapes.Range(Array("タイトル")).Select
Selection.ShapeRange.IncrementLeft -10000
Selection.ShapeRange.IncrementLeft 40
End Sub

にしてるのですが、2度手間なので、 -10000せずに、40と設定したら、
左から４０の位置を指定できるプロパティを教えてください。

No.1 ベストアンサー 回答者： xls88 回答日時： 2013/05/10 00:06

良いところに気が付かれたと思います。

そういう時にはLeftプロパティが用意されています。
因みに上端からはTopプロパティになります。
（例1）
With ActiveSheet.Shapes("タイトル")
.Left = 40
.Top = 50
End With

セル基準でも決めることができます。
（例2）
Dim shp As Shape
Set shp = ActiveSheet.Shapes("タイトル")
With Range("B2")
shp.Left = .Left
shp.Top = .Top
End With

他に、Widthプロパティ、Heightプロパティ等もあります。

この回答へのお礼

Leftプロパティですか。
もっと頭を柔らかくして考えればよかったです。
Topや他の位置についてもご教示ありがとうございます。

お礼日時：2013/05/13 19:37