Opgelost Knop verbergen

[pommeke]

Hallo,

Ik heb een formulier in Word gemaakt met een verzendknop.
Met behulp van AI ervoor gezorgd dat als men op deze knop klikt:
- Het doc wordt opgeslagen als pdf
- Verzonden per mail

Werkt perfect!
Alleen staat die knop mee op het pdf document en dat wil ik niet.

AI geeft verschillende opties, maar deze werken niet.
bv: Klik met de rechtermuisknop op de knop en selecteer "Eigenschappen".
Zoek naar de eigenschap "PrintObject" en stel deze in op "False".

Of wat aanpassingen in de code, maar geven fouten

Weet iemand een oplossing?

Dit is de code van de knop

Sub OpslaanEnMailen()
'
' OpslaanEnMailen Macro
'
'
 Dim pdfPath As String
    Dim olApp As Object
    Dim olMail As Object
    Dim todayDate As String

    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
    
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
  

    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    
 
    ' Outlook applicatie openen
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    ' E-mail opstellen
    With olMail
        .To = "naam@mail.be"
        .Subject = "mail"
        .Body = "Hierbij het ingevulde formulier."
        .Attachments.Add pdfPath
        .Send
    End With

    ' Opruimen
    Set olMail = Nothing
    Set olApp = Nothing

End Sub

 

[pommeke]

Deze code aanpassingen stelde AI voor maar werken niet:

    ' Verberg de knop
    Set btn = ActiveDocument.InlineShapes(1).OLEFormat.Object
    btn.Visible = False
    
    ' Knop weer zichtbaar maken
    btn.Visible = True

    ' Verwijder de knop tijdelijk
    Set btn = ActiveDocument.Shapes("CommandButton1")
    btn.Delete
    
    ' Knop opnieuw toevoegen
    With ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
        .Name = "CommandButton1"
        .Top = 100 ' Pas deze waarden aan naar de oorspronkelijke positie van de knop
        .Left = 100
        .Width = 100
        .Height = 30
    End With

    ' Verberg de knop
    For Each btn In ActiveDocument.InlineShapes
        If btn.OLEFormat.Object.Name = "CommandButton1" Then
            btn.OLEFormat.Object.Visible = False
        End If
    Next btn
        
    ' Knop weer zichtbaar maken
    For Each btn In ActiveDocument.InlineShapes
        If btn.OLEFormat.Object.Name = "CommandButton1" Then
            btn.OLEFormat.Object.Visible = True
        End If
    Next btn

 

[AHulpje]

Is het een ActiveX button?
Plaats je document eens hier.

 

[pommeke]

Is het een ActiveX button?
Plaats je document eens hier.

ja

 

[AHulpje]

Bij mij werkt dit prima met een ActiveX button:

Sub OpslaanAlsPDF()
    Dim pdfPath As String
    Dim todayDate As String
    
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = False
    Next btn
    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
    
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
  
    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = True
    Next btn
End Sub

 

[pommeke]

Bij mij werkt dit prima met een ActiveX button:

Sub OpslaanAlsPDF()
    Dim pdfPath As String
    Dim todayDate As String
   
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = False
    Next btn
    ' Huidige datum ophalen en formatteren
    todayDate = Format(Date, "yyyy-mm-dd")
   
    ' Pad om het PDF-bestand op te slaan met vaste tekst en datum
    pdfPath = Environ("UserProfile") & "\Documents\tekst_" & todayDate & ".pdf"
 
    ' Document opslaan als PDF
    ActiveDocument.ExportAsFixedFormat OutputFileName:=pdfPath, ExportFormat:=wdExportFormatPDF
    For Each btn In ActiveDocument.InlineShapes
        btn.OLEFormat.Object.Visible = True
    Next btn
End Sub

Helaas, bij mij niet...
In bijlage het bestand

 

[AHulpje]

Probeer het hier dan eens mee:

 

[pommeke]

Probeer het hier dan eens mee:

Dat werkt, hartelijk dank