If a chart is selected in Excel 2007, using
ActiveSheet.PageSetup.Orientation doesn't seem to return the orientation
of the active sheet, but the orientation of the selected chart object
(whatever the meaning of this value is...?).

Is there another way to return the orientation of the active sheet (if
not programmatically unselect the chart shape first)?
Thanks

doesn't work either... :(


Tom Ogilvy wrote:
What do you get with activesheet.name?

Dim sh as Worksheet
set sh = worksheets(Activesheet.name)

msgbox sh.pagesetup.orientation

of course, you don't need to select the chart to work with it.

activesheet.chartobjects(1).Select

Sub ABCD()
Dim obj As Object
Set obj = Selection
Do While TypeName(obj) < "Worksheet"
Set obj = obj.Parent
Loop
MsgBox obj.PageSetup.Orientation
End Sub


--
Regards,
Tom Ogilvy


"Luca Brasi" wrote:

doesn't work either... :(


Tom Ogilvy wrote:
What do you get with activesheet.name?

Dim sh as Worksheet
set sh = worksheets(Activesheet.name)

msgbox sh.pagesetup.orientation

of course, you don't need to select the chart to work with it.

activesheet.chartobjects(1).Select

Unfortunately no.

There's no problem to get the reference to the active worksheet. The
ActiveSheet property does this correctly.

But if a chart is selected on this sheet,
ActiveSheet.PageSetup.Oriention does not return the orientation of this
sheet, but the orientation of the selected chart object (whatever that
means). The same for PaperSize.

Thanks for your help anyway.


Tom Ogilvy wrote:
Sub ABCD()
Dim obj As Object
Set obj = Selection
Do While TypeName(obj) < "Worksheet"
Set obj = obj.Parent
Loop
MsgBox obj.PageSetup.Orientation
End Sub