Hi rj,
As far as I know there is no formula that can do that.
If you select the shape containing the required text then run the
following macro it will show an inputbox asking you to select the
destination cell.
Then, after you click OK, that shape's text will appear in the
destination cell you selected.
You will have to make sure that when you select the shape that the
flashing I-bar does not appear inside the shape. Macros can't be run
while Excel is in edit mode.
So, click the shapes border, not its interior, then run this macro...
Public Sub ShapeCaptionToCell()
Dim strShpText As String
Dim rngDestination As Range
On Error GoTo NOTSHAPE
strShpText = Application.selection.Caption
Set rngDestination = Application.InputBox(prompt:="Select the
destination cell", Type:=8)
rngDestination.Value = strShpText
NOTSHAPE:
End Sub
To get the code in place...
1) Copy
2) press Alt + F11 to get into the VBA Editor
3) Go Insert>Module
4) Paste the code into the new module
Ken Johnson