' [339.xls]



' [Module1] のコード
'★★☆　画面を取り込む　☆★★

Option Explicit

'API関数の宣言
Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

'keybd_event VK_SNAPSHOT, 0, 0, 0 'アクティブフォームをキャプチャ
'keybd_event VK_SNAPSHOT, 1, 0, 0 '全画面をキャプチャ

Const VK_SNAPSHOT = &H2C

Sub start()

    With Application
        
        '自分自身を取り込まないときはExcelを消す
        If [E11] = False Then .Visible = False

        '取込エラーを防止するために1秒間マクロを停止
        .Wait (Now() + TimeValue("00:00:01"))

        '画面全体か、アクティブウインドのみか、を判断して取込開始
        If [E9] = 1 Then
            keybd_event VK_SNAPSHOT, 1, 0, 0
        Else
            keybd_event VK_SNAPSHOT, 0, 0, 0
        End If

        '取込エラーを防止するために1秒間マクロの停止
        .Wait (Now() + TimeValue("00:00:01"))

        'Excelを表示
        .Visible = True
        
    End With
    
    '新しいブックを表示して取り込んだ画像を貼り付ける
    Workbooks.Add
    [B2] = "画面取込中、少々お待ち下さい"
    [B2].Font.ColorIndex = 3
    [A3].Select
    ActiveSheet.Paste
    
    [B2] = "新しく挿入したブックに画面を取込ました"
    
End Sub