Hoe past u automatisch de grootte van het opmerkingenvak aan zodat het de tekst in Excel volledig weergeeft?

Wanneer u opmerkingen toevoegt aan cellen, heeft het opmerkingenvak standaard een vaste grootte. Als u veel tekst invoert, is een deel daarvan niet direct zichtbaar. Is het mogelijk om het opmerkingenvak automatisch aan te passen aan de tekst?

Opmerkingenvak automatisch aanpassen aan de tekst in een werkblad
Opmerkingenvak automatisch aanpassen aan de tekst in een bereik van cellen
Eenvoudig het opmerkingenvak automatisch aanpassen aan de tekst in het huidige werkblad of alle werkbladen met een krachtige tool

Opmerkingenvak automatisch aanpassen aan de tekst in een werkblad

In Excel kunt u het opmerkingenvak handmatig naar de gewenste grootte slepen, maar als u veel opmerkingenvakken moet aanpassen, is dit tijdrovend en omslachtig. In dat geval kunt u de volgende VBA-code gebruiken.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande macro in het Module-venster.

VBA-code: Opmerkingenvakken automatisch aanpassen in een werkblad

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle opmerkingenvakken in het huidige werkblad worden nu aangepast aan hun tekst, zoals te zien is in de onderstaande schermafbeelding:

Tip: Deze code werkt alleen in het huidige werkblad en past nieuwe opmerkingenvakken die u toevoegt niet automatisch aan.

Opmerkingenvak automatisch aanpassen aan de tekst in een bereik van cellen

Als u alleen de opmerkingenvakken in een bepaald bereik automatisch wilt aanpassen, kunt u de volgende VBA-code gebruiken.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande macro in het Module-venster.

VBA-code: Opmerkingenvakken automatisch aanpassen in een bereik van cellen

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd een bereik van cellen te selecteren waarvan u de opmerkingenvakken wilt aanpassen, zie schermafbeelding:

4. Klik vervolgens op OK. De opmerkingenvakken van de geselecteerde cellen zijn nu automatisch aangepast aan de tekst.

Tip: Deze code past nieuwe opmerkingenvakken die u toevoegt niet automatisch aan.

Opmerkingenvak automatisch aanpassen aan de tekst in het huidige werkblad of alle werkbladen

U kunt de volgende methode proberen Automatisch aanpassen van opmerkingsgrootte functie van Kutools voor Excel om automatischalle opmerkingenvakken in het huidige werkblad of in alle werkbladen in Excel aan te passen. Volg hiervoor deze stappen.

1. Om opmerkingenvakken automatisch aan te passen aan de tekst in het huidige werkblad, klikt u op Kutools > Meer > Automatisch aanpassen van opmerkingsgrootte > Actief werkblad.

Wilt u alle opmerkingenvakken in het hele werkboek automatisch aanpassen, klik dan op Kutools > Meer > Automatisch aanpassen van opmerkingsgrootte > Alle werkbladen. Zie schermafbeelding:

Daarna worden alle opmerkingenvakken automatisch aangepast aan hun tekst. Zie schermafbeelding:

Opmerkingen:

• 1. Na het automatisch aanpassen van de opmerkingenvakken, zal het opmerkingenvak zich bij het bewerken automatisch vergroten of verkleinen op basis van de tekst.
• 2. Voor nieuwe opmerkingen die u toevoegt, moet u deze functie Automatisch aanpassen van opmerkingsgrootte opnieuw inschakelen om alle nieuw toegevoegde opmerkingenvakken aan te passen.

Gerelateerde artikelen:

• Hoe verandert u de vorm van een opmerkingenvak in Excel?
• Hoe past u alle opmaak van opmerkingen in cellen aan in Excel?
• Hoe kunt u alle opmerkingen naar een nieuw werkblad of werkboek in Excel overzetten?
• Hoe voegt u een afbeelding of foto toe aan een opmerking in Excel?