Создание скриншота в файл

[XPAiN]

Доброго времени суток всем!

Есть такая проблема. Нужно создать скриншот с друго приложения из VBA и сохранить его в файл. Каким образом это можно сделать?

[EducatedFool]

Здесь есть пример работы из VB со скриншотами.

Вам потребуется лишь получить hwnd и hDC окна того приложения, скриншот которого Вам нужен.

Здесь тоже обсуждалась подобная тема.

[XPAiN]

Посмотрел ссылки. Не работает Ругается на Clipboard.GetData. Видимо VB и VBA отличаются. Чувствую, что нужно его объявить. Скриншот он делает, можно его например в paint вставить ручками.

Поиск как объявить Clipboard ничего не дал

[EducatedFool]

Ругается на Clipboard.GetData. Видимо VB и VBA отличаются.

В VBA нет объекта Clipboard, но это не проблема.

Для работы с буфером обмена из VBA можете воспользоваться следующим кодом:

' ============= работа с буфером обмена
Public Sub SetClipboard(Obj As Variant)
    Dim MyDataObj As New DataObject
    MyDataObj.SetText Format(Obj)
    MyDataObj.PutInClipboard
End Sub

Public Function GetClipboard() As Variant
    GetClipboard = "": On Error Resume Next
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText()
End Function

Public Sub ClearClipboard()
    Dim MyDataObj As New DataObject
    MyDataObj.SetText "": MyDataObj.PutInClipboard
End Sub

Для работы этого кода необходимо подключить библиотеку Microsoft Forms 2.0 Object Library
Чтобы её поключить, Откройте окно редактора VBA (нажатием Alt + F11)
Далее - меню Tools - References...
Поставьте галочку напротив строки Microsoft Forms 2.0 Object Library и нажмите OK.


Вообще-то, в примерах кода для работы с буфером обмена используются API - функции (можете использовать их вместо вышеприведённых процедур):

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long 
Private Declare Function EmptyClipboard Lib "user32" () As Long 
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long 
Private Declare Function CloseClipboard Lib "user32" () As Long

[XPAiN]

Public Function GetClipboard() As Variant
    GetClipboard = "": On Error Resume Next
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText()
End Function

Отлично работает, но только с текстом. У DataObject нет подходящего метода для того чтобы получить картинку.

[SerArtur]

А знаете трюк в Excel Выделим область А1:К10 Удерживая кнопку SHIFT входим в меню Edit > Copy Picture и вот тебе малЭнкий скриншотик

[XPAiN]

Сообщение от SerArtur

А знаете трюк в Excel Выделим область А1:К10 Удерживая кнопку SHIFT входим в меню Edit > Copy Picture и вот тебе малЭнкий скриншотик

Уважаемый SerArtur вы походу не в тему влезли...читайте посты внимательнее!