shapes vba

[rakesh seebaruth]

Hi Guys


I have the following vba codes


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Box As Shape
Set Box = Me.Shapes("Rectangle 1")
If Selection.Left + Selection.Width _
+ Box.Width > Rows(1).Width Then
Box.Left = Selection.Left - Box.Width
Else: Box.Left = Selection.Left + Selection.Width
End If
If Selection.Top + Selection.Height _
+ Box.Height > Columns(1).Height Then
Box.Top = Selection.Top - Box.Height
Else: Box.Top = Selection.Top + Selection.Height
End If
Box.ZOrder msoBringToFront
End Sub

It works fully well with the rectangle


I have changed the rectangle to rounded rectangle


It’s not working


Your help will be highly appreciated.


Happy New Year 2019


Thanks/regards

rakesh

 

[rakesh seebaruth]

thanks cheers happy new year to u and God bless u