Need urgent help

[#1]

Good Morning Friends,

As I have urgent requirement, like in a sheet I have four objects like (Pivot table, Bar Chart, Straight table), all are minimized and arranged in a order.

If I press Pivot table object that is dispalying perfectly as the the same for all the objects.

My requirement is If I press the Bar Chart object I need to display both Bar chart and Pivot table, in their positions.

I tried Properties ---> Layout ---> Show --> Conditional but its not working.

Please help ...

[#2]

hi

take a variable--

example- vhide=1 (true) write in conditional

supoose you have two listbox- A and B

now go to setting--> document properties--> variable-->new--> visibility(create variable)

now take a button ---> action--> external--> set variable-->write name= visibility and value='A'

now go to properties of A --/. lay out --> conditional-->write visibility='A'

now go to properties of B --/. lay out --> conditional-->write visibility='B'

****************************************************************************************************************

you can also solve this problem by using macro.---

sub test

set v = ActiveDocument.Variable("visibility")

     if ActiveDocument.GetSheetObject("LB03") . IsMinimized then ActiveDocument.GetSheetObject("LB03") . maximized

v.SetContent  "0", true

endif

end sub

[khadeer]

Hi PFA,

When u selected Bar chart it automatically activate pivot also. Hope it helps u.

[raghavsurya]

Hi,

You can create a button functionality.  Link the below macro to the button by following below navigation

Properties>Actions>Add>External and select run macro>type "ShowChart1and2" in Macro name field

sub ShowChart1and2

set c=ActiveDocument.GetSheetObject ("CH1")

set d=ActiveDocument.GetSheetObject ("CH2")

if c.IsMinimized  then
   c.Restore
end if

if d.IsMinimized  then
   d.Restore
end if

ActiveDocument.GetSheetObject ("CH3").Minimize

ActiveDocument.GetSheetObject ("CH4").Minimize

End Sub

Regards,

Raghav

[raghavsurya]

Hi,

You can create a button functionality.  Link the below macro to the button by following below navigation

Properties>Actions>Add>External and select run macro>type "ShowChart1and2" in Macro name field

sub ShowChart1and2

set c=ActiveDocument.GetSheetObject ("CH1")

set d=ActiveDocument.GetSheetObject ("CH2")

if c.IsMinimized  then
   c.Restore
end if

if d.IsMinimized  then
   d.Restore
end if

ActiveDocument.GetSheetObject ("CH3").Minimize

ActiveDocument.GetSheetObject ("CH4").Minimize

End Sub

Regards,

Raghav