This function takes a shape and a range of cell(s) over which to center the shape.
CenterMe ActiveSheet.Shapes(1), Range("D9")
Sub CenterMe(Shp As Shape, OverCells As Range)
Shp.Left = .Left + ((.Width - Shp.Width) / 2)
Shp.Top = .Top + ((.Height - Shp.Height) / 2)
There are currently 1 users browsing this thread. (0 members and 1 guests)