Opblazen Scrollbar

[Pieter671]

Ik heb in een Excel2013 model met een 3-stal Scrollbars (ActiveX-besturingelementen) opgenomen.

Bij het presenteren via een beamer of extern scherm blazen de Scrollbars zich op.
Zowel bij VGA als HDMI aansluiting. Zie bijgevoegde plaatje (jpg-file).

Voorbeeld


De scrollbars zijn bij start, openen van het Excel-bestand, alle gelijk van grootte.
De middelste scrollbar is de oorspronkelijke grootte. De bovenste en onderste zijn opgeblazen.
Iedere keer als op het pijltje links of rechts gedrukt wordt, wordt de scrollbar groter en groter
Na een paar keer drukken is het niet meer werkbaar.

De volgende VBA-code hangt onder de scrollbars.

Private Sub ScrollBar22_Change()

'Scrollbar voor Qref in proenten van Qwensen (PUNT B)

    ScrollBar22.Min = Worksheets("HULP-velden").Range("J84")
    ScrollBar22.Max = 100
       
    ScrollBar22.Width = 85
    ScrollBar22.Height = 22
    
    ScrollSaved = ScrollBar22.Value
    Worksheets("Tool").Range("I15").Value = ScrollSaved / 100
End Sub

Private Sub ScrollBar21_Change()
    
'Scrollbar voor Pmax in proccenten van Pref (PUNT C)

    ScrollBar21.Min = 101
    ScrollBar21.Max = Worksheets("HULP-velden").Range("Maximaal") * 100
        
    ScrollBar21.Width = 85
    ScrollBar21.Height = 22
        
    ScrollSaved = ScrollBar21.Value
    Worksheets("Hulp-velden").Range("Pmax_Percentage").Value = ScrollSaved
    Worksheets("Tool").Range("I16").Value = ScrollSaved / 100 - 1
        
End Sub

Private Sub ScrollBar23_Change()

' Scrollbar voor Precenteage aandel wensen in Qtotaal (PUNT A)

    ScrollBar23.Min = 0
    ScrollBar23.Max = 100
       
    ScrollBar23.Width = 85
    ScrollBar23.Height = 22
      
    ScrollSaved = ScrollBar23.Value
    Worksheets("Tool").Range("I12").Value = ScrollSaved / 100
End Sub

Vragen:
Is dit voor iemand een herkenbaar probleem?
Moet ik de oplossing zoeken in de VBA-code?

 

[emields]

mooi plaatje

 

[jkpieterse]

Staat het zoom percentage van je werkblad wellicht op iets anders dan 100%? En zelfs als dat het geval is, dit komt geregeld voor met ActiveX besturingselementen en minder vaak met de formulier besturinselementen...

 

[cow18]

moet je bij iedere change de height en width opnieuw instellen ???
Ik zou anders eens proberen zonder

 

[Pieter671]

@jkpietersen,
Bedankt voor je bericht. Het werkblad staan inderdaad op 80%. Bijzonder dat deze 'bug' nog in Excel zit.
Bij een formulier besturingselement lukt het mij niet om een variabele Min en Max in te bouwen. Dit heb ik toch bij twee scrollbars nodig.

Weet jij hier toevallig een oplossing of workaround voor?
Ik kan wel met een plaatjes (als pijltjes) werken, maar dan is het effect van een scrollbar weg.

@cow18
Ook bedankt voor je reactie.

Naar mijn idee word in de code iedere keer de height en width in gesteld. Of bedoel je iets anders?
Misschien eerste de height en width opnemen en dan de min en max?
Ik ga wel even e.e.a. testen en uitproberen. Ook het weglaten zal ik proberen.



Pieter

 

[jkpieterse]

Plaats je pogingen eens en leg uit hoe (en waarom) min en max variabel moeten zijn, dan kunnen wij dit vast wel fixen.

 

[Pieter671]

@Jan Karel

Ik heb mijn model omgebouwd met gebruik van "formulier besturingselementen". Werkt nu goed.
Laat tot nu toe een stabiel beeld zien wanneer aangesloten op een extra presentatie scherm. Nog een opblaaseffecten waargenomen.

Heb nu wel nieuwe uitdagingen.
1) Hoe geeft ik een formulier besturingselement een kleur?

Ik heb al wel wat rondgekeken. Ik vermoed dat dit niet kan. Klopt dit?






Heeft iemand een idee voor deze twee uitdagingen.

 

[jkpieterse]

Klopt, het zijn de wat simpelere varianten van de ActiveX besturingselementen, maar daardoor ook betrouwbaarder.

 

[Pieter671]

Jammer dat ActiveX minder betrouwbaar is.
Thanx voor de antwoorden
Pieter