tekst in activex wordt onleesbaar klein

[Verwijderd]

Mijn vraag
Ik heb een formulier gemaakt in excel. Hierin heb ik een tekstvak van activeX gezet.
- als ik type in het vak is het gewoon lettergrootte 11.
- als ik het bestand dan opsla en later weer open dan is er het volgende;
- reeds getypte tekst wordt klein als ik het tekstvak selecteer. als ik een andere cel selecteer is de tekst weer normale grote.

Hoe kan ik dit oplossen?

Bij voorbaat dank.

Relevante software en hardware die ik gebruik
...

Wat ik al gevonden of geprobeerd heb
...

[dix-neuf]

Klik (in de vba-editor) met de rechtermuisknop op het tekstvak en kies "Eigenschappen".
Kijk wat er in het venster "Eigenschappen" bij "Font" staat ingesteld. Standaard is dat lettertype "Tahoma".
Door uiterst rechts op de 3 puntjes te klikken kun je lettertype en lettergrootte - standaard is dat 8 - aanpassen.

[Verwijderd]

Hoi dix-neuf.

dank voor je reactie. Ik denk dat mijn vraag niet helemaal juist is overgekomen. Ik begrijp namelijk hoe ik het lettertype en daarmee ook de lettergrootte kan aanpassen. Ik heb calibri en grootte 11 ingesteld.

Ik heb nu een tekstvak waarin ik wat tekst heb getypt. Dit bestand heb ik daarna opgeslagen. Een dag later wil ik nog wat extra in dit tekstvak typen. MAAR. als ik nu het tekstvak selecteer dan is de tekst (die ik de dag eerder heb getypyt) ineens onleesbaar klein.

Het gekke is dat dit alleen zo is als ik het tekstvak selecteer. Als ik daarna een andere cel selecteer dan springt de tekst weer terug naar origineel (calibri 11).

Ik begrijp niet goed waarom dat zo is.

[Paul1987]

Beste Chris,

Dit is volgens mij een bug in Excel in combinatie met activeX objecten, althans ik heb hier nooit een reden voor gevonden.
Wel een (mogelijke) oplossing

je kunt het handmatig aanpassen door voor ieder tekstvak dat je gemaakt hebt het volgende te doen:
1. schakel over naar de ontwerp-modus
2. klik met de rechtermuisknop op het tekstvak
3. kies voor 'Eigenschappen'
4. zet 'Multiline' op 'False' en vervolgens weer op 'True'
6. zet 'WordWrap' op 'False' en vervolgens weer op 'True'
7. Schakel de ontwerpmodus uit, selecteer een willekeurige cel en vervolgens weer het tekstvak

Volgens mij is het nu opgelost.

Ik heb overigens een stukje code geschreven die hetzelfde automatisch doet. voor een of meerdere tekstvakken op een of meerdere werkbladen.

Visual Basic .NET: Formule Risico classificatie per regel

Sub microtext()
'fix voor text vak
    Dim mijnarray As Variant
    Dim x As Integer
    Dim werkbladen As Variant
    werkbladen = Array("Blad1", "Blad3") 'Plaat hier alle blad namen waar je activeX objecten met tekst hebt staan
    
        
    For x = LBound(werkbladen) To UBound(werkbladen)                              'begin en eind van'array'
        With Sheets(werkbladen(x))
            For i = 1 To .OLEObjects.Count
                If TypeOf .OLEObjects(i).Object Is MSForms.TextBox Then
                    
                    .OLEObjects(i).Object.MultiLine = False 'Zet MultiLine uit
                    .OLEObjects(i).Object.WordWrap = False  'Zet WordWrap uit
                    .OLEObjects(i).Object.MultiLine = True  'Zet MultiLine aan
                    .OLEObjects(i).Object.WordWrap = True   'Zet WordWrap aan
                End If
            Next i
        End With
    Next x ' Loop!
End Sub