From: Phil Stanton on
I know this sounds involved, but it works ... almost

I am using a Hyperlink to run an Excel application which generates a chart
based on a query in the current database. This chart is saved a a GIF file
is linked to an Image control on my form. ( Programming the chart object has
proved far too slow)

The relevant code is

.......
......
CreateHyperlink Me!Storage, "", ExcelPath ' Generate GIF
Files
DoEvents

fCloseApp ("XLMAIN") ' ALL versions of Excel, any spreadsheet

Call SS_apiShowWindow(GetAccesshWnd(), SW_MAXIMIZE) '
*****************

Application.DoCmd.Maximize
' ****************

DoCmd.SelectObject acForm, Me.Name
DoCmd.Maximize
'*****************

AllocationPlan.Picture = FindPlanPath(PlanFolder & "\" & AllocatedPath)
' Load Image

.......
.......

All the bits about Maximize fail to do anything as both Access and the form
remain minimised on the task bar.

How do I automatically maximize them ( Clicking on them works fine)

Thanks

Phil



From: Salad on
Phil Stanton wrote:
> I know this sounds involved, but it works ... almost
>
> I am using a Hyperlink to run an Excel application which generates a chart
> based on a query in the current database. This chart is saved a a GIF file
> is linked to an Image control on my form. ( Programming the chart object has
> proved far too slow)
>
> The relevant code is
>
> .......
> ......
> CreateHyperlink Me!Storage, "", ExcelPath ' Generate GIF
> Files
> DoEvents
>
> fCloseApp ("XLMAIN") ' ALL versions of Excel, any spreadsheet
>
> Call SS_apiShowWindow(GetAccesshWnd(), SW_MAXIMIZE) '
> *****************
>
> Application.DoCmd.Maximize
> ' ****************
>
> DoCmd.SelectObject acForm, Me.Name
> DoCmd.Maximize
> '*****************
>
> AllocationPlan.Picture = FindPlanPath(PlanFolder & "\" & AllocatedPath)
> ' Load Image
>
> .......
> .......
>
> All the bits about Maximize fail to do anything as both Access and the form
> remain minimised on the task bar.
>
> How do I automatically maximize them ( Clicking on them works fine)
>
> Thanks
>
> Phil
>

Would the code at http://www.mvps.org/access/api/api0018.htm work? As
long as your extension opens up the correct viewer I'd think it should.

Maybe http://www.mvps.org/access/api/api0019.htm addresses your issue
instead?


La Bomba
http://www.youtube.com/watch?v=jY48iTyLrmk
From: Phil Stanton on
Brilliant. Thanks a lot. The second link worked perfectly

Phil


"Salad" <oil(a)vinegar.com> wrote in message
news:_oidnf22IdEM0ezVnZ2dnUVZ_qrinZ2d(a)earthlink.com...
> Phil Stanton wrote:
>> I know this sounds involved, but it works ... almost
>>
>> I am using a Hyperlink to run an Excel application which generates a
>> chart based on a query in the current database. This chart is saved a a
>> GIF file is linked to an Image control on my form. ( Programming the
>> chart object has proved far too slow)
>>
>> The relevant code is
>>
>> .......
>> ......
>> CreateHyperlink Me!Storage, "", ExcelPath ' Generate GIF
>> Files
>> DoEvents
>>
>> fCloseApp ("XLMAIN") ' ALL versions of Excel, any
>> spreadsheet
>>
>> Call SS_apiShowWindow(GetAccesshWnd(), SW_MAXIMIZE) '
>> *****************
>>
>> Application.DoCmd.Maximize ' ****************
>>
>> DoCmd.SelectObject acForm, Me.Name
>> DoCmd.Maximize '*****************
>>
>> AllocationPlan.Picture = FindPlanPath(PlanFolder & "\" &
>> AllocatedPath) ' Load Image
>>
>> .......
>> .......
>>
>> All the bits about Maximize fail to do anything as both Access and the
>> form remain minimised on the task bar.
>>
>> How do I automatically maximize them ( Clicking on them works fine)
>>
>> Thanks
>>
>> Phil
>>
>
> Would the code at http://www.mvps.org/access/api/api0018.htm work? As
> long as your extension opens up the correct viewer I'd think it should.
>
> Maybe http://www.mvps.org/access/api/api0019.htm addresses your issue
> instead?
>
>
> La Bomba
> http://www.youtube.com/watch?v=jY48iTyLrmk