Web sayfasının ekran görüntüsünü almak

[Jeeday]

Sub Web_Sayfa_Resmini_Al()
Dim IE As Object, Kitap_Adi As String
Dim Pencere_No As Long, Web_Pencere_Adi As String

Kitap_Adi = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & " - Excel"

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "istenilen URL bilgisi"

Do Until IE.readyState = 4: DoEvents: Loop

Web_Pencere_Adi = IE.LocationName & " - Internet Explorer"

Pencere_No = FindWindow(vbNullString, Web_Pencere_Adi)

If Pencere_No = 0 Then
MsgBox "Web sayfasina ulasilamiyor!"
Exit Sub
Else
ShowWindow Pencere_No, SW_SHOWMAXIMIZED
End If

DoEvents
Sleep 1000

Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

AppActivate Kitap_Adi

DoEvents
Sleep 1000
Range("A1").Select
ActiveSheet.Paste

MsgBox "Web sayfasinin resmi excel sayfasina aktarilmistir.", vbInformation
End Sub