Results 1 to 4 of 4

Thread: Excel Worksheet into Snapshot

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Jun 2001
    Location
    Malaysia
    Posts
    70

    Exclamation Excel Worksheet into Snapshot

    Guys,
    I need to capture a excel worksheet into a snapshot file type andsave it into a folder.

    How do I go bout to do this. Pls help. I managed to saved an excel wrksheet into a folder. But how to capture the excel worksheet into a snapshot file type?

    Pls help guys. Cheers.
    Thanks a lot guys!

  2. #2
    Hyperactive Member wordracr's Avatar
    Join Date
    Aug 2001
    Posts
    281
    Are you talking about a "screen shot"? If so, check out this thread. And you can do a search for "Print screen". That might pull up more info.

  3. #3

    Thread Starter
    Lively Member
    Join Date
    Jun 2001
    Location
    Malaysia
    Posts
    70

    Exclamation Can't view link

    Sorry man, for some reason I can't view the link.
    Yeah it's the screen shot. I need to capture the whole excel worksheet in a screen shot format.
    Pls help.
    Thanks a lot guys!

  4. #4
    Hyperactive Member wordracr's Avatar
    Join Date
    Aug 2001
    Posts
    281
    It worked for me:
    http://209.120.143.185/showthread.ph...hreadid=181017

    Try doing a search for "Print Screen". It seems like there's a lot about it.

    Here's what's in that link:

    (make sure the excel window has focus though)

    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Private Const VK_SNAPSHOT = &H2C

    'Author: Dalin Nie (Edited by Matthew Gates)
    'Origin: http://www.vbcode.com
    'Purpose: This function capture the screen or the active window of your computer. Programmatically and save it to a .bmp file.
    'VB version: VB 6,VB 5,VB 4/32
    'Save Screen As Bitmap
    Private Function SaveScreen(ByVal theFile As String) As Boolean
    On Error Resume Next

    'To get the Entire Screen
    Call keybd_event(vbKeySnapshot, 1, 0, 0)

    'To get the Active Window
    'Call keybd_event(vbKeySnapshot, 0, 0, 0)

    SavePicture Clipboard.GetData(vbCFBitmap), theFile

    SaveScreen = True
    Exit Function
    End Function

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width