The property TopLeftCell in itself is of type range. The code above can be
shorter.
Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
MsgBox shp.TopLeftCell.Address
Next
End Sub
Regards,
Sam Mathai Chacko
On Tue, Nov 19, 2013 at 2:22 PM, Chandra Shekar <
chandrashekarb@gmai
Hello,
Thank you very much.
Regards,
Chandru
On Mon, Nov 18, 2013 at 11:45 PM, ashish koul wrote:
> Sub test()
> Dim shp As Shape
>
> For Each shp In ActiveSheet.Shapes
> MsgBox Cells(shp.TopLeftCell.Row, shp.TopLeftCell.Column).Address
> Next
>
>
>
> End Sub
>
>
>
> On Mon, Nov 18, 2013
Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
MsgBox Cells(shp.TopLeftCell.Row, shp.TopLeftCell.Column).Address
Next
End Sub
On Mon, Nov 18, 2013 at 1:38 PM, Chandra Shekar <
chandrashekarb@gmail.com> wrote:
> Hello,
>
> Is there anyway to get cell reference of shap
Hello,
Is there anyway to get cell reference of shapes please find sampe excel.
Thanks in advance.
Regards,
Chandru
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discuss