Maximise Access window

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Phil Stanton
    #1

    Maximise Access window

    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_apiShowWindo w(GetAccesshWnd (), SW_MAXIMIZE) '
    *************** **

    Application.DoC md.Maximize
    ' *************** *

    DoCmd.SelectObj ect acForm, Me.Name
    DoCmd.Maximize
    '************** ***

    AllocationPlan. Picture = FindPlanPath(Pl anFolder & "\" & 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



    Tags: None
    • Salad
      #2
      Re: Maximise Access window

      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_apiShowWindo w(GetAccesshWnd (), SW_MAXIMIZE) '
      *************** **
      >
      Application.DoC md.Maximize
      ' *************** *
      >
      DoCmd.SelectObj ect acForm, Me.Name
      DoCmd.Maximize
      '************** ***
      >
      AllocationPlan. Picture = FindPlanPath(Pl anFolder & "\" & 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

        Comment

        • Phil Stanton
          #3
          Re: Maximise Access window

          Brilliant. Thanks a lot. The second link worked perfectly

          Phil


          "Salad" <oil@vinegar.co mwrote in message
          news:_oidnf22Id EM0ezVnZ2dnUVZ_ qrinZ2d@earthli nk.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_apiShowWindo w(GetAccesshWnd (), SW_MAXIMIZE) '
          >************** ***
          >>
          > Application.DoC md.Maximize ' *************** *
          >>
          > DoCmd.SelectObj ect acForm, Me.Name
          > DoCmd.Maximize '************** ***
          >>
          > AllocationPlan. Picture = FindPlanPath(Pl anFolder & "\" &
          >AllocatedPat h) ' 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

            Comment

            Previous template Next
            Working...