Formulier op het bureaublad plaatsen

[ExcelAmateur]

Hallo helpers,

Ik heb van een kennis een vraag gekregen maar weet hier geen antwoord op.
De vraag is of dat het mogelijk is om een formulier dat je in Excel gebruikt, direct op het bureaublad te plaatsen?

Weet iemand van jullie of dit mogenlijk is?

 

[Niels28]

Hierbij een voorbeeldje van hoe ik een snelkoppeling dmv een macro op het bureaublad zet,
misschien heb je hier voldoende aan om aan te passen.

Set objWSH = CreateObject("WScript.Shell")

    strPath = objWSH.SpecialFolders("Desktop") & "\" & ThisWorkbook.Name & ".lnk"
    Set objShortCut = objWSH.CreateShortcut(strPath)
    With objShortCut
        .TargetPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .Description = "urenbriefje"
        .RelativePath = "C:\Temp"
        .WorkingDirectory = "C:\"
        .Save
    End With

Niels

 

[ExcelAmateur]

Niels28,

Bedankt voor het antwoord en de macro.
Ik zal het naar de kennis sturen, moet hij maar kijken ofdat het lukt.

Zal de vraag als opgelost zetten.