Can we fix shape position with Cell Value?

[bhandari]

iam giving input in A1 TO A10 In sheet 1

at sheet 2 shapes should appear with specific position as mentioned in sheet 1(A1:A10)

Can i get help with this?

Sub populatearrow()
Dim shapi As Shape

Set shapi = Sheets("Sheet 2").Shapes("Rectangle 2")
Dim shap As Shape
Dim x
Dim position
position = shapi.Left
For x = 2 To 11

Set shap = Sheets("Sheet 2").Shapes.AddShape(shapi.AutoShapeType, position + Sheets("Sheet 2").Cells(1, 2).Width * 10, shapi.Top, shapi.Width, shapi.Height)
With shapi
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7
    Selection.Formula = "=$A$1"
End With
shap.Visible = True
position = shap.Left
Set shap = Nothing
Next
Set shapi = Nothing
End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...t-boxes-if-condition-matched.html#post5078691

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing so and not to bump a thread more than once a day.