Hoe een Commando-knop te gebruiken om het actieve werkblad op te slaan als PDF-bestand in Excel?

Tijdens het werken in Microsoft Excel kun je het probleem tegenkomen dat je het actieve werkblad moet opslaan als PDF-bestand. In dit artikel leer je hoe je het actieve werkblad kunt opslaan als PDF-bestand met behulp van VBA-code via een Commando-knop. En als je ook een bereik of elk werkblad in het actieve werkboek wilt opslaan als afzonderlijke PDF-bestanden, kan dit artikel je daar ook bij helpen.

Gebruik een Commando-knop om het actieve werkblad op te slaan als PDF-bestand met VBA-code
Sla gemakkelijk het actieve of elk werkblad op als individueel PDF-bestand met Kutools voor Excel

Gebruik een Commando-knop om het actieve werkblad op te slaan als PDF-bestand met VBA-code

Je kunt de volgende VBA-code uitvoeren om een actief werkblad op te slaan als PDF-bestand door op een Commando-knop te klikken. Doe het volgende.

1. Maak eerst een map genaamd PDF aan om je nieuwe geconverteerde PDF-bestand op te slaan. Hier maak ik deze map aan op mijn lokale schijf (C:).

2. Voeg een Commando-knop in door te klikken op Ontwikkelaar > Invoegen > Commando-knop (ActiveX Control). Zie screenshot:

2. Teken vervolgens een Commando-knop in het werkblad waar je nieuwe rijen wilt toevoegen, klik met de rechtermuisknop op de Commando-knop en klik op Eigenschappen in het rechtsklikmenu.

3. Voer in het dialoogvenster Eigenschappen de tekst die op de Commando-knop moet worden weergegeven in het vak Bijschrift onder het tabblad Gecategoriseerd in, en sluit vervolgens het dialoogvenster.

Je ziet dat de tekst op de Commando-knop is veranderd zoals in de onderstaande screenshot wordt getoond.

4. Klik met de rechtermuisknop opnieuw op de Commando-knop en klik vervolgens op Code weergeven in het rechtsklikmenu.

5. In het venster Microsoft Visual Basic for Applications dat wordt geopend, vervang je de originele code in het Code-venster door de volgende VBA-code.

VBA-code: Commando-knop om actief werkblad op te slaan als PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Opmerking: In de code is CommandButton1 de naam van de Commando-knop die je gaat gebruiken om het actieve werkblad op te slaan als PDF-bestand. "C:\PDF\Export.pdf" is het pad en de naam van je op te slaan PDF-bestand.

6. Druk tegelijkertijd op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten. Schakel daarna de Ontwerpmodus uit onder het tabblad Ontwikkelaar.

Nu, klik op de Commando-knop, het actieve werkblad wordt opgeslagen als een PDF-bestand genaamd Export en staat op de gespecificeerde locatie.

Sla elk werkblad op als individueel PDF-bestand van het actieve werkboek met Kutools voor Excel

Hier raden we de functie Werkboek splitsen van Kutools voor Excel aan om eenvoudig het actieve werkblad op te slaan als een PDF-bestand. Daarnaast kun je met deze functie elk werkblad in het huidige werkboek opslaan als individueel PDF-bestand.

1. In het werkboek waarin je elk werkblad wilt opslaan als individueel PDF-bestand, klik dan op Kutools Plus > Werkboek > Werkboek splitsen. Zie screenshot:

2. Configureer in het dialoogvenster Werkboek splitsen als volgt:

Het geselecteerde werkblad wordt onmiddellijk opgeslagen als PDF-bestand.

Opmerkingen:

Gerelateerde artikelen:

• Hoe voeg je automatisch een nieuwe lege rij in met een Commando-knop in Excel?
• Hoe formatteer je een cel zodat deze eruitziet als een 3D-knop in Excel?
• Hoe verberg je of haal je een Commando-knop tevoorschijn op basis van een gespecificeerde celwaarde in Excel?