Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VBA excell minimaliseren zodat alleen userform zichtbaar is.

Violist46
1 antwoord
  • Hallo,
    ik heb een userform, die bij opstarten excel minimaliseert en de form is dan nog alleen op de desktop.
    Met de volgende code:

    [code:1:c150be8b18]
    Application.WindowState = xlMinimized
    ActiveWindow.WindowState = xlMinimized
    Windows("invoerscherm2.xls").Activate
    [/code:1:c150be8b18]

    Dit staat in de initialize. Het form wordt via een commandbutton gestart (in modules geplaatst, sub is genaamd ToonStartpage).
    [code:1:c150be8b18]
    Sub ToonStartPage()
    MsgBox ("toonstartpage")
    Application.WindowState = xlMaximized
    frmStartPage.Show 'is userform


    End Sub
    [/code:1:c150be8b18]
    Nu wordt de data uit de form in een andere excel file geplaatst en daar wordt meteen een print-preview opgestart.
    [code:1:c150be8b18]
    Private Sub Opengraph()
    frmStartPage.Hide 'userform verdwijnt uit beeld

    Windows("andere file.xls").Activate

    If cbxRuntype.ListIndex = 0 Then Sheets("grafiek1").Select
    If cbxRuntype.ListIndex = 2 Then Sheets("grafiek2").Select
    If cbxRuntype.ListIndex = 1 Then Sheets("grafiek3").Select
    If cbxRuntype.ListIndex = 3 Then Sheets("grafiek4").Select

    Application.WindowState = xlMaximized
    ActiveWindow.SelectedSheets.PrintPreview
    [/code:1:c150be8b18]
    Dit geeft dus een printpreview van een bepaalde grafiek.

    Maar nu wil ik na het sluiten van de printpreview weer alleen de userform in beeld hebben, die zich dus in een andere excel file bevindt.
    Daar heb ik nu dit voor (direct na voorgaande code geplakt):
    [code:1:c150be8b18]
    Windows("eerste file.xls").Activate
    Application.WindowState = xlMinimized

    Call ToonStartPage
    [/code:1:c150be8b18]

    Maar dit maakt wel de desktop zichtbaar, maar de userform niet.
    In de taakbalk staat de excel button te knipperen. Zodra je daarop klikt is de userform zichtbaar. Maar dan is excel ook weer zichtbaar op de achtergrond. Hoe kan ik die weg krijgen?
    Ik snap niet waarom ik niet dezelfde code kan gebruiken als in de initialize, maar dan na de printpreview geplakt. Het werkt dan gewoon niet. Wellicht doe ik iets fout.

    Is er ook een mogelijkheid om andere applicaties meteen te minimizen, zoals explorer etc. De userform staat altijd achter de andere programma´s die eerst geminimized moeten worden alvorens de userform zichtbaar wordt.

    Wie heeft raad??

    groet
    Willem

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.