Excel'deki seçili alanı bmp dosyası olarak kaydetmesi hakkında.

[Kemal Demir]

Arkadaslar merhaba,

Bir konuda daha yardımlarınıza ihtiyacım olacak.

Örnek vermek istiyorum.

[A5:J41]
Aralıgı seçilerek ,bir Bmp dosya açtırıp bu alanı açılan Bmp dosyasına yapıştırmak istiyorum
Açtıgım resim dosyasını Resim-1 olarak da "c:\pptresimlerim" dosyasına koymak istiyorum.
Bu resim dosyasının genişlik pikselini 718 olarak kaydetmek istiyorum.

Bu konuda yardımcı olabilirmisiniz.

Teşekkurler.

 

[Erdem Akdemir]

Arkadaslar merhaba,

Bir konuda daha yardımlarınıza ihtiyacım olacak.

Örnek vermek istiyorum.

[A5:J41]
Aralıgı seçilerek ,bir Bmp dosya açtırıp bu alanı açılan Bmp dosyasına yapıştırmak istiyorum
Açtıgım resim dosyasını Resim-1 olarak da "c:\pptresimlerim" dosyasına koymak istiyorum.
Bu resim dosyasının genişlik pikselini 718 olarak kaydetmek istiyorum.

Bu konuda yardımcı olabilirmisiniz.

Teşekkurler.

bu kalitede olur mu

siteye resmi ekleyemiyorum

kısaca biraz açıklayım

alanı seçin, kopyala yapın
paint'i açın

resim >özellikler kısmında genişlik'i 712 yapın tamam deyin

yapıştır yapın

resmi köşeden uzatın tamamdır

not:eğer çözünürlük iyi olmazsa , excel'de sütünları ve font'u büyüterek tekrar deneyin

 

[Kemal Demir]

Sn.kuvari,

Öncelikle geridönüşünüz için teşekkurler.

İşlemi kod ile gerçekleştirmeden yanayım.Bu işlemi manuel yapmak fazlasıyla zaman alacaktır.

Teşekkurler

 

[Leoncio]

Merhaba;

Ekte bulunan dosyayı çalıştırın. (Kurulum gerektirmez) daha sonra F6 tuşuna tıklayınız ve resmini seçmek istediğiniz alanı mause ile seçip bırakınız, jpg olarak masa üstüne alacaktır.

 

[Kemal Demir]

Merhaba Leoncio,

Prg için teşekkurler.Israrcı olmak zorunda kaldıgım için sorry yalnız bunu Vba kod ile ( benim içinde değişik bir çalışma olacak ) yapılması mumkunmudur.

Teşekkurler.

NOT:Vba ile yapmamdaki nedenlerden biri bir dongu kurmak istiyorum.Bu donguyude yollamıs oldugunuz prg de mumkun değil.

 

[Leoncio]

Merhaba;
Aşağıdaki kodlar işinizi görür mü?

makroyu çalıştırdıktan sonra yapıştır deyin
Option Explicit
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0) ' Hali hazırda bulunan ekranın fotoğrafını yakaladı
DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı beklet


End Sub

 

[Kemal Demir]

Sn.Leoncio,

Deneyeceğim olmadıgı durumda( yapamadıgım durumda ) sizi bilgilendireceğim.

 

[Kemal Demir]

Günaydın,

Vermiş oldugunu kodu uygulayamadım.

Yinede teşekkurler arkadaşlar.

İyi çalışmalar.

 

[Kemal Demir]

Merhaba,

Sanki sonuca yaklasmak üzereyim.

Sub Secili_Alanı_Gonder()
     Const Viewer As String = "C:\Program Files\IrfanView\i_view32.exe"
     Selection.Copy
     Shell Viewer, 1
     Application.SendKeys "^v"
If Dir("C:\resimlerim", vbDirectory) = Empty Then MkDir "C:\resimlerim"
ChDir "C:\resimlerim"
Application.SendKeys "^s"
[b]'Application.SendKeys "^r"  Burayı kapattım.Boyutlandırma yaptırmam gerekiyor.[b]
End Sub

Yukarıdaki koda nasıl bir ilave yapmalıyız ki dosyanın adını ornektir:"Brunch-KK-001" yapabilelim.
Adını değiştirdikten sonrada kapattırmak istiyorum.

Teşekkurler.

 

[Zeki Gürsoy]

Merhaba,

"ChartObject" ile istediğiniz kolayca yapılabiliyor. Forumda bununla ilgili birkaç örnek vardı.

 

[oropa]

Merhaba;

Ekte bulunan dosyayı çalıştırın. (Kurulum gerektirmez) daha sonra F6 tuşuna tıklayınız ve resmini seçmek istediğiniz alanı mause ile seçip bırakınız, jpg olarak masa üstüne alacaktır.

2009 yılında paylaşmışsınız bugün nasip oldu. Çok teşekkür ederim , şirket katalog çalışması için excel dosyasındaki resimleri jpg yapmam gerekiyordu sayenizde hallediyorum.