オートシェイブを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 · ベストアンサー

良いところに気が付かれたと思います。
そういう時には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や他の位置についてもご教示ありがとうございます。