Export Userform as GIF

    Hi


    I am trying to export a userform as GIF image. Is this possible? I am using the following code, But I get the error in Export Statement.


    Sub export_form()
    Dim us As Object
    abc = ActiveWorkbook.Path
    Set us = UserForm1
    gifname = InputBox("Enter name for GIF:")
    us.Export abc & gifname & ".gif", FilterName:="GIF"
    End Sub

    Ram P

    Hi Dennis


    Thanks for your reply.


    Yes it does appear that Export Method is applicable for only charts.


    Is there a way to Copy the Userform Image and then export it as JPEG OR GIF IMAGE?


    Thanks


    Ram P:bouncy:

    Ram P

    If you display your UserForm and use Alt>Print Screen you will create an image of the UserForm on your cipboard. This can be pasted into your documnt. If you have the free addin from http://www.asap-utilities.com you can use the export sub-menu to save a range as an image file. Just carefully select the area around your gif so that your range only shows the form. Takes a couple of minutes. Sample gif attached

    There is a print form option could you redirect this


    PrintForm prints all visible objects and bitmaps of the UserForm object. PrintForm also prints graphics added to a UserForm object.


    The printer used by PrintForm is determined by the operating system's Control Panel settings.



    Private Sub Print_This_Form()
    UserForm1.PrintForm
    End Sub

    My call Jack as you know is very lazy best days


    I would print screen and literally paste the whole screen into Excel and crop it to size and re jig, takes 10 seconds to do.


    Warning it not a real crop its more if hide, so can be un-cropped.


    This is do all day long, and gets very good results, and as such I suggest this often. If you require a real crop your need some image software, M$ Paint can do this, but the guru would be Paint Shop Pro this application package version 5, current is 8 I recall is now FULL FREE on magazine cover disk in the UK, so have a look about.



    Kindest possible regards


    Jack in the UK

    I presume that I can use the PrintForm feature instead of GIF images..


    Thanks Everyone for your kind suggestions.


    If I use the ClipBoard option and then crop the image, I may have to call another application to save the cropped image as a GIF image...


    Ram P

    Ram P

    Thanks Andy for your Add-in. It does work for objects on the worksheets, But not for independent Userforms.


    I shall beusing it for my variousother applications.


    Thnaks


    Ram P

    Ram P

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login