VBA - Shape A position next to shape B position

[hrayani]

Hello Friends,

I have two shapes. On the left is "Record" & on the right is "Rectangle 32"

What I want is the position of the shape "Record" to be on the left of shape "Rectangle 32" just like below image
I know I can manually adjust the shape "Record" just to the left of the shape "Rectangle 32" but the problem is that, the contents of the shape "Record" keeps on changing hence the width also changes.

Also, If anyone can let me know how to fix a shape's left / right position to a cell

 

[BSALV]

left of "record" = left of rectangle32 - width of "record" and trigger at the right moment, but all that isn't obvious

 

[Jaafar Tribak]

How does the width of the shape "Record" change ? and how often ?

 

[hrayani]

How does the width of the shape "Record" change ? and how often ?

This is in the worksheet change event

ActiveSheet.Shapes("Record").Width = Range("K4").Value

It happens very often & the result is like this

 

[hrayani]

left of "record" = left of rectangle32 - width of "record" and trigger at the right moment, but all that isn't obvious

Wow, That did the trick

Private Sub Worksheet_Change(ByVal Target As Range)
  
ActiveSheet.Shapes("Record").Width = Range("K4").Value

Dim sp As Object: Set sp = ActiveSheet.DrawingObjects("Record")
Dim sp1 As Object: Set sp1 = ActiveSheet.DrawingObjects("Rectangle 32")

   sp.AutoSize = msoAutoSizeTextToFitShape
   sp.Left = sp1.Left - sp.Width
  
End Sub