Hi,

Is it possible to find out if a selected shape is just a line or a shape
(i.e. has a line color and fill color)

Thanks!

Sanjay,

I think you can check the Type property of the shape. If it's msoLine, then
it's a line.

Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoLine Then
'this is a line
Debug.Print shp.Name & " is a line."
End If
Next shp
End Sub

--
Hope that helps.

Vergel Adriano


"Sanjay" wrote:

Hi,

Is it possible to find out if a selected shape is just a line or a shape
(i.e. has a line color and fill color)

Thanks!

Thanks Vergel !



"Vergel Adriano" wrote in message
...
Sanjay,

I think you can check the Type property of the shape. If it's msoLine,
then
it's a line.

Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoLine Then
'this is a line
Debug.Print shp.Name & " is a line."
End If
Next shp
End Sub

--
Hope that helps.

Vergel Adriano


"Sanjay" wrote:

Hi,

Is it possible to find out if a selected shape is just a line or a shape
(i.e. has a line color and fill color)

Thanks!