excel vba Move a shape to the last row

Nutty Narwhal answered on April 25, 2022 Popularity 1/10 Helpfulness 1/10

answer excel vba Move a shape to the last row

excel vba Move a shape to the last row

Comment

Sub MoveButton()
Dim ws As Worksheet
Dim lr As Long
Dim buttonCell As Range
Dim shp As Shape
Set ws = Sheets("Sheet1")   'Sheet where shape is inserted
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1  'first empty row in column A
Set buttonCell = ws.Cells(lr, "A")  'setting the cell where button will be placed
Set shp = ws.Shapes("myShape")  'name of the shape is "myShape", change it as per your requirement
'set the shape dimensions
With shp
    .Left = buttonCell.Left
    .Top = buttonCell.Top
End With
End Sub

Popularity 1/10 Helpfulness 1/10 Language vb

Source: stackoverflow.com

Tags: excel move row vba

Link to this answer
Share Copy Link

Contributed on Apr 25 2022

Nutty Narwhal

0 Answers Avg Quality 2/10

excel vba Move a shape to the last row

Contents

More Related Answers

excel vba Move a shape to the last row

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.