Hoe kan ik de code van een makro toevoegen aan een opdrachtknop cq button.

[DCHR]

Hoi,

Het lukt me maar niet om een vba code van een makro die ik gemaakt heb aan een button toe te kennen.

een voorbeeld, als ik eventjes snel een makro maak van het document opslaan en uitprinten krijg ik de volgende code:

Sub printenenopslaan()
'
' printenenopslaan Macro
' Macro opgenomen op 5-6-2007 door DCHR
'
ActiveDocument.SaveAs FileName:="Jhasdflkdsfjlkjsdfl.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

Als ik de code van een button oproep (rechtermuisknop, programmacode weergeven) krijg ik:

Private Sub CommandButton2_Click()

End Sub

Wie kan en wil me helpen hiermee, het is irritant omdat me dit onder xp niet meer lukt en vroeger wast geen probleem.

Help!

 

[Bern@rd]

Je moet de code in de macro voor de button plakken

Private Sub CommandButton2_Click()
' printenenopslaan Macro
' Macro opgenomen op 5-6-2007 door DCHR
'
ActiveDocument.SaveAs FileName:="Jhasdflkdsfjlkjsdfl.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

 

[DCHR]

Je moet de code in de macro voor de button plakken

Private Sub CommandButton2_Click()
' printenenopslaan Macro
' Macro opgenomen op 5-6-2007 door DCHR
'
ActiveDocument.SaveAs FileName:="Jhasdflkdsfjlkjsdfl.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

I'll be damned.
Dit heb ik echt zelf tig keer geprobeert en kreeg steeds foutmeldingen. Heb net jouw stukje geknipt en geplakt en verrek, hij doet het. Snap jij het snap ik het?

pfff, ik dacht eventjes dat ik gek was geworden.

 

[Bern@rd]

Mooi dat het werkt. Het zal de superlijm van het plakken zijn die voor het succes zorgt.

 

[DCHR]

Whaha, dat zal het zijn...

Bedankt!

 

[huijb]

Niet crossposten a.u.b.