[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

microsoft.public.excel.programming

DisplayOutline

KC VBA Qns

12/12/2006 5:16:00 AM

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,
5 Answers

Dave Peterson

12/12/2006 3:47:00 PM

0

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



KC VBA Qns wrote:
>
> 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,

--

Dave Peterson

KC VBA Qns

12/13/2006 12:05:00 AM

0

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,

Dave Peterson

12/13/2006 12:29:00 AM

0

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.

KC VBA Qns wrote:
>
> 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,

--

Dave Peterson

KC VBA Qns

12/13/2006 5:41:00 PM

0

Thanks again.

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

Rgds,

Dave Peterson

12/13/2006 5:52:00 PM

0

Welcome to the club!!!

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

--

Dave Peterson