• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Userform openen

Status
Niet open voor verdere reacties.
E

EMA

Gebruiker
Lid geworden
19 jan 2012
Berichten
7
Goedemiddag,

vraagje:

(In Excel)

Via een snelkoppeling (in mijn excel bestand) open ik een userform in excel., maar omdat ik met twee schermen werk, opent hij soms op het linker scherm en soms rechts.
Kan ik dit aanpassen (en hoe) dat hij altijd opent aan de kant waar het excel bestand staat?

Groetjes,
EMA
 
Een beetje spelen met zoiets, denk ik.
Code: 
Private Sub UserForm_Initialize()
StartUpPosition = 0
Left = Application.Left + (0.5 * Application.Width) - (0.5 * Width)
Top = Application.Top + (0.5 * Application.Height) - (0.5 * Height)
End Sub
 
waar staat de startupposition eigenschap van dat userform op?
 
Dat wilde ik net vragen, maar dan met een illustratie.
UF.JPG
 
Wat voor mij werkt:

(wel vinkje zetten bij "Trust access to VBA project object model" bij macro settings)

Code: 
Private Sub UserForm_Initialize()
[COLOR="#FF0000"][B]Application.VBE.MainWindow.Left = Application.Left[/B][/COLOR]
StartUpPosition = 0
Left = Application.Left + (0.5 * Application.Width) - (0.5 * Width)
Top = Application.Top + (0.5 * Application.Height) - (0.5 * Height)
End Sub
 
dankjewel voor zover.

Alleen bij mij werkt het nog niet.

Vinkje aangezet (stond al aan trouwens)
code toegevoegd.

de userform opent nu altijd links! ook al heb ik het excel bestand op het rechter scherm staan.

groetjes,
Ema
 
Mijn voorkeur:

Code: 
Private Sub UserForm_Initialize()
    Application.WindowState = xlMinimized
End Sub
 
Wat komt hier uit als je Excel op jouw rechterscherm hebt staan?
Code: 
Sub tst()

MsgBox "Excel " & Application.Left & " VBE " & Application.VBE.MainWindow.Left

End Sub

en beantwoord ook even de andere vragen uit dit draadje
 
Staat het Excel bestand op het rechter scherm dan is de uitkomst: Excel 1435 VBE 2211
Staat het Excel bestand op het linker scherm dan is de uitkomst: Excel -5 VBE 2211
 
eigenschappen Userorm staan in de bijlage
 

Bijlagen

  • userform.PNG
    userform.PNG
    12,8 KB · Weergaven: 99
En zet StartUpPosition op 1.
 
Ja deze werkt.

Private Sub Index_Initialize()

Application.VBE.MainWindow.Left = Application.Left

StartUpPosition = 1
Left = Application.Left + (0.5 * Application.Width) - (0.5 * Width)
Top = Application.Top + (0.5 * Application.Height) - (0.5 * Height)


End Sub

dankjewel allemaal voor het mee zoeken.

groetjes,
Ema
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan