Measure length of an AutoShape Line?
 

Is there a function or way in Excel to measure the length of an autoshape
line?

What I would like to do is be able to draw an autoshape line and then in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can be fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an autoshape
line?

What I would like to do is be able to draw an autoshape line and then in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

Just FYI, Still there in Excel 2003.

--
Regards,
Tom Ogilvy


"Greg Wilson" wrote:

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can be fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an autoshape
line?

What I would like to do is be able to draw an autoshape line and then in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

Not having XL2003 to hand I was alarmed to read Greg's comment about the
potentially hidden Line and relieved to read your FYI..!

Trust same goes for all the other old hidden members.

Regards,
Peter T

"Tom Ogilvy" wrote in message
...
Just FYI, Still there in Excel 2003.

--
Regards,
Tom Ogilvy


"Greg Wilson" wrote:

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can be
fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an
autoshape
line?

What I would like to do is be able to draw an autoshape line and then
in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

I am not aware of any that are not there.

--
Regards,
Tom Ogilvy



"Peter T" wrote:

Not having XL2003 to hand I was alarmed to read Greg's comment about the
potentially hidden Line and relieved to read your FYI..!

Trust same goes for all the other old hidden members.

Regards,
Peter T

"Tom Ogilvy" wrote in message
...
Just FYI, Still there in Excel 2003.

--
Regards,
Tom Ogilvy


"Greg Wilson" wrote:

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can be
fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an
autoshape
line?

What I would like to do is be able to draw an autoshape line and then
in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

Thanks Tom,

I'll take that as confirmation even though you were careful not to put it
that way <g

Regards,
Peter T

"Tom Ogilvy" wrote in message
...
I am not aware of any that are not there.

--
Regards,
Tom Ogilvy



"Peter T" wrote:

Not having XL2003 to hand I was alarmed to read Greg's comment about
the
potentially hidden Line and relieved to read your FYI..!

Trust same goes for all the other old hidden members.

Regards,
Peter T

"Tom Ogilvy" wrote in message
...
Just FYI, Still there in Excel 2003.

--
Regards,
Tom Ogilvy


"Greg Wilson" wrote:

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can
be
fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an
autoshape
line?

What I would like to do is be able to draw an autoshape line and
then
in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

Measure length of an AutoShape Line?
 

Thanks Tom for the tip. I wrote that more out of worry about Murphy's Law
than real concern it wasn't supported. Should I assume that all hidden
members are and will be supported till the end of VBA? I ask this in view of
the impression I've received that VBA is no longer being upgraded and MS
wants to change to VB.Net.

Greg

"Tom Ogilvy" wrote:

Just FYI, Still there in Excel 2003.

--
Regards,
Tom Ogilvy


"Greg Wilson" wrote:

Try:

Sub ShowLineLength()
If TypeName(Selection) = "Line" Then
Range("A1").Value = GetLen(Selection)
End If
End Sub

Function GetLen(shp As Line) As Single
Dim W As Single, H As Single
W = shp.Width: H = shp.Height
GetLen = Sqr(W ^ 2 + H ^ 2)
End Function

"Line" is now considered a "hidden member" and possibly is no longer
supported in some versions beyond xl2000 which I am using. This can be fixed
if this is the case with you. Will be a little less concise however.

Regards,
Greg


"John" wrote:

Is there a function or way in Excel to measure the length of an autoshape
line?

What I would like to do is be able to draw an autoshape line and then in an
Excel cell display the length of that line.

Thank you in advance to any help provided!

Best Regards,
John




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0615-3, 04/14/2006
Tested on: 4/16/2006 4:12:11 PM
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com