Çözüldü sayfa ekran goruntusu alma

[mustafa070707]

Set mychart = Sheets("ESGUDUM").Shapes("grafik 61").Chart
mychart.Export VBA.Environ("TEMP") & Application.PathSeparator & "esgudum.jpg"
Me.Image5.Picture = LoadPicture(VBA.Environ("TEMP") & Application.PathSeparator & "esgudum.jpg")

bu kod ile grafigin ekran goruntusunu alip image gosteriyorum sorunum ben sayfada belirli bir sayfa araliginin ekran goruntusunu alip gostermek istiyorum yardim ederseniz sevinirim.

 

[SNNAY]

Set mychart = Sheets("ESGUDUM").Shapes("grafik 61").Chart
mychart.Export VBA.Environ("TEMP") & Application.PathSeparator & "esgudum.jpg"
Me.Image5.Picture = LoadPicture(VBA.Environ("TEMP") & Application.PathSeparator & "esgudum.jpg")

bu kod ile grafigin ekran goruntusunu alip image gosteriyorum sorunum ben sayfada belirli bir sayfa araliginin ekran goruntusunu alip gostermek istiyorum yardim ederseniz sevinirim.

Deneyiniz

 

[mustafa070707]

Deneyiniz

hocam ben grafik değilde sadece o alanın ekran görüntüsünü almak istiyorum grafik olmayacak ve aralığı seçmek yerine direk kod kısmına a1:k17 olarak almak isktiyorum

 

[mustafa070707]

ben sadece metin kısmını kopyalamak istiyorum inputbox ile seçim değilde kod kısmına satır aralığını girerek

 

[SNNAY]

ben sadece metin kısmını kopyalamak istiyorum inputbox ile seçim değilde kod kısmına satır aralığını girerek

Deneyiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[mustafa070707]

Deneyiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

cok tesekkur ederım