Move a shape vba

[julhs]

I have the below code that cuts and pastes a Group of shapes to a new location.
What is frustrating me is that I can’t find the way to JUST use “Center on Column:AS”, instead of resort to using
Left = Destrng.Left – 35
This is Sub code

Public Sub MoveShapeToLrwD2()

Dim sht As Worksheet
Dim rng As Range
Dim FrwD As Long
Dim LrwD As Long
Dim Destrng As Range
Dim shp As Shape
    Set sht = ThisWorkbook.ActiveSheet
    Set rng = Range("AK:AK").Find(What:="Paid To", LookIn:=xlValues, LookAt:=xlWhole)
         FrwD = rng.Row
         LrwD = sht.Cells(sht.Rows.Count, "AT").End(xlUp).Row + 3
    Set Destrng = Range("AS" & LrwD)
    Set shp = ActiveSheet.Shapes("Group 1")

    ActiveSheet.Shapes.Range("Group 1").Select
  With shp
    .Left = Destrng.Left - 35
    .Top = Destrng.Top
 End With
   Range("AT" & FrwD).Select  'Effectivly DE-SELECTS Group 1
End Sub

 

[Anthony47]

Try

With Shp
    .Top = Destrng.Top + (Destrng.Height - .Height) / 2
    .Left = Destrng.Left + (Destrng.Width - .Width) / 2
End With

 

[julhs]

I did a straight swop of:

With shp
.Left = Destrng.Left - 35
.Top = Destrng.Top
End With

With your:

With Shp
.Top = Destrng.Top + (Destrng.Height - .Height) / 2
.Left = Destrng.Left + (Destrng.Width - .Width) / 2
End With

While yours does centralise then Left/Right on Col:AS, BUT it is not placing the first shape (1st of 5) in

Destrng = Range("AS" & LrwD + 5)

I don’t know how to interpret the returned values when I step into the sub using your version.
When I step in I see,

.Top = Destrng.Top + (Destrng.Height - .Height) / 2 = 840.6
.Left = Destrng.Left + (Destrng.Width - .Width) / 2 = 2459.4

Using:

Debug.Print Destrng.Top + (Destrng.Height - .Height) / 2
Debug.Print Destrng.Left + (Destrng.Height - .Height) / 2

It returns

.Top = Destrng.Top + (Destrng.Height - .Height) / 2 = 680.349215698242
.Left = Destrng.Left + (Destrng.Width - .Width) / 2 = 2429.3791305542

To summerise,
.Top = Destrng.Top + (Destrng.Height - .Height) / 2 - is placing it INCORRECTLY
.Left = Destrng.Left + (Destrng.Width - .Width) / 2 - is placing it CORRECTLY

Any further thoughts?

 

[Anthony47]

Maybe you need to leave YOUR top? I.e

        With Shp
              .Top = Destrng.Top
              .Left = Destrng.Left + (Destrng.Width - .Width) / 2
       End With

 

[julhs]

Well that did work.
As there has not been any other alternative suggestion to my original or your revised codes, I have to assume there isn’t another way to do it?
Going to use your revised version because that handles any change to column widths in future, whereas my:

.Left = Destrng.Left - 35

is fixed, so would require manually changing if column widths are changed

Many thanks for your help.

 

[Anthony47]

One of the default properties for the shapes (.Placement) says "Move but don't resize with the cells"
So if columns width at the left of the shape be changed then the shape will still be in the correct position.
Viceversa, if Destrng width changes the shape will lose the desired position and you need to execute a macro that re-set it