positie largescroll bepalen

[Symphysodon]

Beste forummers,

Is het mogelijk om vanuit bijvoorbeeld [1,1] de positie te bepalen van de zichtbare linkerbovenhoek, na een largescroll naar rechts?

ActiveWindow.LargeScroll ToRight:=1

Mvg,
Marco

 

[HSV]

Dit?

application.goto cells(1,columns.count).end(xltoleft), true

 

[Symphysodon]

Nee. Wat ik graag zou willen is het plaatsen van een knop in de rechterbovenhoek van de 1e pagina. Het probleem waar ik mee zit is dat bij elk besturingssysteem die plek anders blijkt te zijn. Dat is ook het geval als ik de pagina-indeling vastleg en de kolombreedtes instel. Daarom dacht ik het te kunnen oplossen met largescroll naar rechts. De meest linkerkolom van de pagina rechts van de 1e pagina wordt dan zichtbaar. Het probleem is dat met de macro recorder de cel van de naastliggende pagina niet wordt geactiveerd. Terwijl dat met ALT+PageDown wel wordt gedaan. In het voorbeeld in de bijlage moet de zichtbare knop in mijn systeem op positie 919.8 komen te staan (ongeveer halverwege [T1]) .

Met goto.. ga je weer terug naar de 1e pagina.

 

[snb]

Het lijkt me slimmer de knop in het lint te zetten.

 

[Symphysodon]

Daar is geen lint. Alleen een aantal knoppen voor dataverwerking, opslaan , printen en een kruisje in de rechterbovenhoek voor het afsluiten van het bestand zonder het op te slaan.

 

[snb]

Overal in Excel is er een lint.

 

[HSV]

Zo?

Private Sub CommandButton1_Click()
 ActiveWindow.LargeScroll ToRight:=1
 CommandButton1.Left = ActiveWindow.VisibleRange.Left
End Sub

 

[Symphysodon]

Het is niet helemaal wat ik bedoel. Het is de bedoeling dat de knop na het openen van het bestand precies in de rechterbovenhoek komt te staan. Nu wordt de pagina rechts van 1e pagina geactiveerd en komt de knop in de linkerbovenhoek.

In de bijlage heb ik het bestand zonder lint met knop. Als ik de knop handmatig verplaats naar de rechterbovenhoek en het bestand opsla en open op een ander systeem, dan staat de knop niet meer precies in de hoek ook al heb ik de breedte van de kolommen vastgelegd in Workbook_Open.

 

[snb]

De oplossing voor je 'probleem' heb je uitgeschakeld. :shocked:

 

[Symphysodon]

Zou je zeggen. De knop die in de hoek moet is om af te sluiten zonder op te slaan, hiermee wordt ook het lint weer terug gezet. Met het kruisje van het lint kun je het bestand opslaan en het een andere naam geven en dat is juist niet bedoeling omdat er automatisch een bestandsnaam gegenereerd wordt.

 

[snb]

Met een kruisje kun je geen bestand opslaan.

 

[Symphysodon]

Niet direct maar na het klikken op het kruisje komt er wel een scherm met de melding of je de gegevens op wilt slaan ja of nee en door op ja te klikken wordt het originele bestand opgeslagen. Wat dus niet de bedoeling is.

 

[snb]

Waarom denk je dat die melding komt dan ?

 

[Symphysodon]

Het gaat me niet om die melding. Door het lint te disablen inclusief kruisje, heb ik een soort van formulier met de functionaliteit van Excel.
Dat lukt allemaal prima alleen krijg ik het niet voor mekaar om de 'afsluit' knop in de rechterbovenhoek van het scherm te zetten.

Een andere optie is misschien het Excel-kruisje niet te disablen maar de functionaliteit van de knop aan te passen en er een aflsuit zonder op te slaan knop van te maken.

 

[snb]

Waarom is het bestand nog niet opgeslagen voordat er op het kruisje geklikt kan worden ?

 

[HSV]

Voor de knop naar de rechterkant.

CommandButton.Left = Windows(1).Width - CommandButton.Width * 2

 

[Symphysodon]

@snb
Voor het opslaan heb ik een andere knop. Nadat het bestand is opgeslagen met een automatiscche gegenereerde naam is de 'opslaan'-knop verwijderd zodat het originele bestand niet kan worden gewijzigd.

@HSV
Wauw dit werkt. Hoe krijg ik de code werkend in een Workbook-open sub. In het klik event moet je eerst op de knop klikken voordat hij naar hoek verplaatst wordt.

 Private Sub Workbook_Open()
Dim cmdKnop As CommandButton
 Set cmdKnop = CommandButton1
 cmdKnop.Left = Windows(1).Width - cmdKnop.Width * 3
End Sub

Dit werkt niet.

 

[Symphysodon]

Gelukt.

Private Sub Workbook_Open()

Set cmdKnop = Sheets("Test").OLEObjects("Commandbutton1")
cmdKnop.Left = Windows(1).Width - cmdKnop.Width * 3

End Sub

Haha snb, heb je me toch nog geholpen.

http://www.snb-vba.eu/VBA_Excel_VBproject.html#L_0

Allebei super bedankt.

 

[HSV]

Private Sub Workbook_Open()
with Sheets("Test")
 .commandbutton1.Left = Windows(1).Width - .commandbutton1.Width * 3
end with
End Sub

 

[Symphysodon]

Had ik moeten weten. Bedankt. Ik ga maar weer eens aan de studie