I have created a macro that exports an image from SolidWorks to file and then copies it to the clipboard using Microsoft Excel in the background. This allows me to then quickly paste the image into emails and documents.

    Dim xl As Object
    Dim xlsh As Object
    Dim sh As Object
    Set sh = CreateObject("Excel.Application")
    Set xl = GetObject(, "Excel.Application") ' Excel is open
    xl.Workbooks.Add (xlWBATWorksheet)
    Set xlsh = xl.ActiveSheet
    xlsh.Pictures.Insert(Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1) + ".png").Select
    xl.Selection.Copy

Can anyone recommend a more elegant way of doing this without saving the image or needing excel? I have look all over for a native solution but copying an image directly to the clipboard seems to be asking a lot more than just copying text.

Otherwise, please enjoy the attached macro.