Hoe maak je de achtergrondkleur van een selectievakje transparant in Excel?
Normaal gesproken, wanneer je selectievakjes (ActiveX Control) in cellen in Excel invoegt, zal de achtergrondkleur van het selectievakje de vulkleur van het werkblad bedekken zoals te zien is in onderstaande schermafbeelding. Om de hele achtergrondkleur van het werkblad weer te geven, moet je de achtergrondkleur van het selectievakje transparant maken. Dit artikel biedt een VBA-methode om dit probleem op te lossen.
Maak de achtergrondkleur van een selectievakje transparant met VBA-code
Maak de achtergrondkleur van een selectievakje transparant met VBA-code
Volg de volgende stappen om de achtergrondkleur van selectievakjes transparant te maken met VBA-code.
1. Druk in het werkblad dat de selectievakjes bevat die je transparant wilt maken, gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de VBA-code in het Code-venster.
VBA-code: Maak de achtergrondkleur van selectievakjes transparant
Sub CheckBoxTransparent()
Dim xOleChk As OLEObject
Application.ScreenUpdating = False
For Each xOleChk In ActiveSheet.OLEObjects
If TypeName(xOleChk.Object) = "CheckBox" Then
xOleChk.Object.BackStyle = fmBackStyleTransparent
End If
Next
Application.ScreenUpdating = True
End Sub
3. Druk op de F5-toets of klik op de knop Uitvoeren om de code uit te voeren. Daarna worden alle selectievakjes in het huidige werkblad transparant. Zie onderstaande schermafbeelding:
Gerelateerde artikelen:
- Hoe filter je gegevens op basis van een selectievakje in Excel?
- Hoe maak je een keuzelijst met meerdere selectievakjes in Excel?
- Hoe verander je de waarde of kleur van een specifieke cel wanneer een selectievakje is aangevinkt in Excel?
- Hoe markeer je een cel of rij met een selectievakje in Excel?
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!