2013-03-05 11 views

答えて

2

デスクトップのスクリーンショットをキャプチャするには、Sys.Desktop.Pictureメソッドを使用します。

Sys.Desktop.Picture.SaveToFile "E:\screenshot.png" 

また、あなたは自動的にあなたのテストのアクションのスクリーンショットをキャプチャするためにTest Visualizerをオンにすることができます。ファイルへの結果の画像を保存するには、そのSaveToFileメソッドを使用します。

+0

はヘレン – Ramakrishna

+0

@YallaRamakrishna @、返信いただきありがとうございます:それはあなたのために働いていた場合は他の人が知っているので、ソリューションの答えとしてそれをマークしてください。 – Helen

+0

実際に私はスタックオーバフローのための新しいユーザーです。私は実際にどのようにマークされますか手順を教えてくださいわからない。 – Ramakrishna

0
Function CaptureScreenShot(ScreenshotPath) 
    'Generate Name of the Image 
    strimgFileName="Img\Img" & Day(Date)& Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) &".jpg" 
    strImgFile= ScreenshotPath & strimgFileName 
    'Capture failure Screen shot 
    Set objPic = Sys.Desktop.Picture() 
    'Save captured Screen shot 
    ExecutionStatus = objPic.SaveToFile(strImgFile) 
    'Return Captured image name 
    CaptureScreenShot=".\" & strimgFileName 
End Function  
関連する問題