DisplayOutline

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

KC VBA Qns - 12 Dec 2006 05:15 GMT

Hi,

Can anyone help?

I always get True for ActiveWindow.DisplayOutline regardless if I
really have an outline or not. Has this to do with my Excel being 2002?

I need to determine if the sheet has an outline so as to collapse to
the appropriate level.

Rgds,

Reply to this Message

Dave Peterson - 12 Dec 2006 15:47 GMT

I think that's the equivalent of checking
Tools|options|view tab|outline symbols

Maybe you could use something like:

Option Explicit
Sub testme01()

Dim myRow As Range
Dim IsOutLineUsed As Boolean

IsOutLineUsed = False
For Each myRow In ActiveSheet.UsedRange.Rows
If myRow.OutlineLevel > 1 Then
IsOutLineUsed = True
Exit For
End If
Next myRow

MsgBox IsOutLineUsed

End Sub

> Hi,
>
[quoted text clipped - 7 lines]
>
> Rgds,

Signature

Dave Peterson

Reply to this Message

KC VBA Qns - 13 Dec 2006 00:05 GMT

Thanks, Dave.

Somehow my Excel 2002 does not come with this option:
Tools|options|view tab|outline symbols

I guess the equivalent is Ctrl-8. No?

Rgds,

Reply to this Message

Dave Peterson - 13 Dec 2006 00:29 GMT

Look again. You'll see Outline Symbols in the bottom section in the middle
column.

But that's for viewing those symbols to the left of the worksheet.

> Thanks, Dave.
>
[quoted text clipped - 4 lines]
>
> Rgds,

Signature

Dave Peterson

Reply to this Message

KC VBA Qns - 13 Dec 2006 17:40 GMT

Thanks again.

My eyes must have played a trick earlier on. I thought I checked a
couple of times before writing.

Rgds,

Reply to this Message

Dave Peterson - 13 Dec 2006 17:52 GMT

Welcome to the club!!!

> Thanks again.
>
> My eyes must have played a trick earlier on. I thought I checked a
> couple of times before writing.
>
> Rgds,

Signature

Dave Peterson

Reply to this Message