Excel VBA: Export Multiple Userforms to PowerPoint or Excel as Screenshots

[ajay_gajree]

Hi All

Can anyone point me in the right dircection to be able Export Multiple Userforms to PowerPoint or Excel as Screenshots using VBA?
If its possible!

I have the below code that will export the current Open Userform to an Excel Worksheet, but unsure how to adapt for a set of Userfoms

Private Sub CommandButton1_Click()
     DoEvents
     keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
     keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
     keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
         KEYEVENTF_KEYUP, 0
     keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
         KEYEVENTF_KEYUP, 0
     DoEvents
     Workbooks.Add
     Application.Wait Now + TimeValue("00:00:01")
     ActiveSheet.PasteSpecial Format:="Bitmap"
     
     With ActiveSheet.PageSetup
         .CenterHorizontally = True
         .CenterVertically = True
         .Orientation = xlLandscape
         .PaperSize = xlPaperA4
         .BlackAndWhite = False
         .Zoom = False
         .FitToPagesWide = 1
         .FitToPagesTall = 1
     End With
     
    Application.Dialogs(xlDialogPrint).Show

End Sub

 

[Worf]

Hi


The example below exports to One Note. It is not suitable for many forms, as you will get a dialog box for each of them.

Sub Copy_Forms()
Dim obj As Object, i%, a, sp$
a = Array(1, 2, 5)                                      ' desired forms
sp = Application.ActivePrinter
Application.ActivePrinter = "Send To OneNote 2013 em nul:"
For i = LBound(a) To UBound(a)
    Set obj = VBA.UserForms.Add("UserForm" & a(i))
    obj.printform
Next
Application.ActivePrinter = sp                          ' restore settings
End Sub