• 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.

Vorm automatisch aanpassen aan teskt

Status
Niet open voor verdere reacties.
B

BramC

Gebruiker
Lid geworden
15 jan 2018
Berichten
9
Hoi!

Wie weet kan iemand van jullie mij helpen.

In bijgevoegd 'testje' tref je op tabblad 1 een tekstvak. De tekst in dit vak wil ik automatisch overnemen in de vorm op tabblad 2. Wanneer ik nu de tekst op tabblad 1 wijzig naar bijvoorbeeld 'hallo', dan wordt dit welliswaar overgenomen op tabblad 2, echter: de vorm past zich niet automatisch aan aan deze tekst....de vorm wordt dus niet automatisch kleiner. Pas als ik (via rechtermuisknop) > grootte en eigenschappen > tekstvak > 'Formaat van vorm aanpassen aan tekst' uit en opnieuw aanvink, dan wordt het tekstvak netjes aangepast qua grootte.

Kan dit ook automatisch??

Vriendelijke groet,

Bram

Bekijk bijlage Test.xlsx
 
met vba in het sheetchange event van thisworkbook:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets(2).Shapes(1).TextFrame2.AutoSize = msoAutoSizeShapeToFitText
End Sub
 
Dat zal via een macro moeten. Die actie kan je opnemen met de macro recorder en daarna gebruiken in het change event van tabblad 1.

Edit:
Wat Gijsbert voor je deed dus ;)
 
Is dit een oplossing voor u?
 

Bijlagen

  • Test.xlsb
    17,8 KB · Weergaven: 64
Gijsbert1 zei:
met vba in het sheetchange event van thisworkbook:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets(2).Shapes(1).TextFrame2.AutoSize = msoAutoSizeShapeToFitText
End Sub
Klik om te vergroten...

Dank Gijsbert!....jammer genoeg weet ik alleen dat je met F11 zo'n VBA schermpje naar voren krijg :)......waar plak ik dan deze code in vervolgens?
 
In dat VBA schermpje zie je aan de linkerkant een soort verkenner.
Daar zoek je; "ThisWorkbook", en daar dubbelklik je op.
In het witte scherm (programmacode van ThisWorkbook) plak je deze code.
 
Wat is het verschil met mijn voorstel?
 
Nu niet direct overdrijven hé. :)
 
Dank Gijsbert en Cobe,

Ik probeer de oplossing van Gijsbert toe te passen, maar helaas :-(. Zie bijgevoegde (volledige) testversie.

1. Tabblad 1 (Generator): onder 'Mens' staat hallo. Als ik daar nu 3 regels in typ, dan past de vorm op tabblad 2 (Visgraatdiagram) zich niet automatisch aan (ook weer onder 'Mens'.
2. En hoe - in hemelsnaam - verwijder is tabblad 5 'Groepsplanversneller' in zijn geheel. Lijkt erop dat ik alles ooit heb 'beveiligd' ofzo, maar heb geen idee meer van wachtwoorden of iets dergelijks.

Benieuwd of jullie hier iets mee kunnen :)

Groet en dank

Bram
 

Bijlagen

  • VisgraatdiagramTest.xlsx
    154,5 KB · Weergaven: 32
Dat werkblad is nu weg.

Dat tekstvak is ook ingevoegd zodat dit aut. aangepast wordt, dat gaat veel werk kosten,
of er moet iemand een code tevoorschijn toveren die dat in een keer voor alle textvakken doet.
 

Bijlagen

  • VisgraatdiagramTest(cobbe).xlsb
    150,9 KB · Weergaven: 34
Laatst bewerkt:
Als ik 'hallo' onder 'MENS' in tabblad 1 vervang door bijvoorbeeld 2 regels tekst, dat dan automatisch het tekstvak (ook onder MENS) op tabblad 2 zich aanpast aan deze nieuwe tekst (die nieuwe 2 regels) :). Dat zou kunnen door de code van Gijsbert, maar dat is me nog niet gelukt.
 
Gijsbert heeft die code voor u, denk ik zo.

Heb in het bestand in #10 aangepast door een textvak te gebruiken maar wellicht lukt het ook met een gewoon tekstvak.
 
Dank Cobbe! maar moet i.d.d. met de gewone tekstvakjes. Zou kunnen met deze code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets(2).Shapes(1).TextFrame2.AutoSize = msoAutoSizeShapeToFitText
End Sub

Maar op een of andere manier pakt ie deze niet in het bestand....vreemd he
 
Je moet alle groepen opheffen van de shapes om het goed te laten werken!!!

Ik heb het in het voorbeeld bij 1 textbox al voor je gedaan: Bekijk bijlage VisgraatdiagramTest (2)_Gijs.xlsm

Om de code voor alle textboxen te laten werken is het aangepast naar:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim shp As Shape
Dim ws As Worksheet
    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.Type = 17 Then
                shp.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
                shp.TextFrame2.WordWrap = True
            End If
        Next
    Next
End Sub

PS. De beveiliging is eraf gehaald.
 
Dank Gijsbert!!

Dus na 'groep opheffen' van ieder 'vakje' zou het automatisch moeten lopen?

Cheers,
Bram
 
Ja klopt!
Maar dat hoeft niet per 'vakje' hoor.
Gewoon de groep(en) selecteren en dan net zolang op opheffen klikken tot je er bent.
 
DANK VOOR JULLIE HULP!! @Gijsbert; Thnx! werkt nu. Vraag = beantwoordt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan