Hello,
I have a spreadsheet application that puts a shape on a row. The row height is carefully set to perfectly fit the shape, but I want the user to be able to nudge up the row height and shape height in case they want to write more in the shape.
So I want to write a macro that will increase row height by a small amount and then increase the height of the shape in that row a comparable amount. But I am stuck trying to get the name of the shape that the user would like to nudge.
I have tried
Any suggestions?
I have a spreadsheet application that puts a shape on a row. The row height is carefully set to perfectly fit the shape, but I want the user to be able to nudge up the row height and shape height in case they want to write more in the shape.
So I want to write a macro that will increase row height by a small amount and then increase the height of the shape in that row a comparable amount. But I am stuck trying to get the name of the shape that the user would like to nudge.
I have tried
Dim SelectedShape As String
SelectedShape = ActiveSheet.Shapes(Application.Caller).Name
but I get run time error 13: type mismatchSelectedShape = ActiveSheet.Shapes(Application.Caller).Name
Any suggestions?