えくせるまくろで。

質問

お世話になっております。

基礎的な質問かもしれませんが、、
さっきからうまくいってませんです。
セルに入力された値によって変化し、オートシェイプの→の端につなげて→をかきたいんですが、、、
line1 line2はすでにあるものとして、

Sub sample1()
ActiveSheet.Shapes("Line 1").Select
Selection.ShapeRange.Item("Line 1").Left = 258.75
Selection.ShapeRange.Item("Line 1").Width = 67.5 / 6 * Range("A1")
hako1 = ShapeRange.Item("Line 1").Left + 67.5 / 6 * Range("A1")

ActiveSheet.Shapes("Line 2").Select
Selection.ShapeRange.Item("Line 2").Left = hako1
Selection.ShapeRange.Item("Line 2").Width = 67.5 / 6 * Range("A2")

End Sub

と、こうしてたんですが、。
オブジェクトが必要です。とアラームがでます。
どうしたらいいか教えてください。

回答No.2

merlionXX · ベストアンサー

Sub sample1()
With ActiveSheet.Shapes("Line 1")
.Left = 258.75
.Width = 67.5 / 6 * Range("A1")
hako1 = .Left + 67.5 / 6 * Range("A1")
End With
With ActiveSheet.Shapes("Line 2")
.Left = hako1
.Width = 67.5 / 6 * Range("A2")
End With
End Sub

ではどうでしょう？

お礼

できました。ありがとうございます。
なるほどwith～ですね。
助かりました。

回答No.3

imogasi

hako1 = Selection.ShapeRange.Item("Line 1").Left + 67.5 / 6 * Range("A1")
とSelectionを入れると、動きましたが。
ただ結果はＯＫかどうか良くわかりません。
図形などは（直接シートに貼り付けるときは）貼り付ける台紙に当たるシートを指定しないとダメ（エラー）なような経験をしたことがあります。
「With　何々　ドット何々　End With」でも解決するでしょうが。

お礼

できました。ありがとうございます。
Selectionが必要だったんですね（＾_＾；

回答No.1

Ce_faci

こんばんわ
>hako1 = ShapeRange.Item("Line 1").Left + 67.5 / 6 * Range("A1")
>ActiveSheet.Shapes("Line 2").Select
>Selection.ShapeRange.Item("Line 2").Left = hako1

hako1 は値なんですよね。
hako1 = 67.5 / 6 * Range("A1")　ではないですか？

蛇足ですが、→の引き方コードです。
ActiveSheet.Shapes.AddLine(117,156,285,156) .Line.EndArrowheadStyle = msoArrowheadTriangle

(117,156,285,156)は（始点Ｘ，始点Ｙ，終点Ｘ，終点Ｙ）です。

お礼

回答ありがとうございます。
できました。（始点Ｘ，始点Ｙ，終点Ｘ，終点Ｙ）で指定すると、
一度ズレても元にもどってよいですね。