Update stdImage.cls - fix for undeclared "clipboard" (compile error) (#…

…116)

* Update stdImage.cls - fix for undeclared "clipboard" compile error

src/stdImage.cls

@@ -773,8 +773,10 @@ End Sub
 'Copy the image to the clipboard
 '@example `stdImage.CreateFromFile("H:\test1.bmp").ToClipboard()
 Public Sub ToClipboard()
+  Dim oHtml As Object
+  Set oHtml = CreateObject("htmlfile")
   if VarType(Clipboard) = vbObject then
-    Call Clipboard.SetData(ToStdPicture())
+    Call oHtml.parentWindow.clipboardData.SetData(ToStdPicture())
   else
     'Hack: This is a hack; better approach would be to get the image data as a byte array and use clipboard directly.
     'TODO: A less hacky method can be found here:  http://access.mvps.org/access/api/api0042.htm
@@ -967,4 +969,4 @@ End Function
 Private Function BGR(ByVal longColor As Long) As Long
   Call OleTranslateColor(longColor, 0, longColor)
   BGR = RGB((longColor \ 65536) Mod 256, (longColor \ 256) Mod 256, (longColor Mod 256))
-End Function
+End Function