Makro ile jpg dosyası kopyalama

[leumruk]

Merhaba,
Resimlerden oluşan bir klasörüm var. Buradaki resimlerin üzerine gelip sağ tıklayarak kopyalıyorum. Sonrasında açık olan bir word sayfasına yapıştırıyorum. Bu işlemi makro ile yapmam gerekiyor. Bunun için nasıl bir kod yazmalıyım?

 

[Korhan Ayhan]

Selamlar,

Mustafa bey makro ile nasıl bir işlem yapmayı amaçlıyorsunuz. Yani makronun işleyişi nasıl olmalı?

 

[leumruk]

Selamlar,

Mustafa bey makro ile nasıl bir işlem yapmayı amaçlıyorsunuz. Yani makronun işleyişi nasıl olmalı?

Yapmasını istediğim asıl işlem dosyayı kopyalaması. Yani Copy olayı. Sonrasında dosyayı istediğim yere Paste yapabilmeliyim. Örneğin Paint, Excel hücresi, Word dosyası gibi...

 

[CAFERCİFTCİ]

İyi Akşamlar

Mustafa Hocam Merhabalar.Siz hep cevaplayandınız,ilk kez soru sorarken görüyorum.Sağlık ve afiyette olmanızı dilerim.Size ulaşabileceğim bir mail adresi veya tel.numarasını özel mesaj olarak yazabilirmisiniz?Selamlar,saygılar...

 

[leumruk]

Mustafa Hocam Merhabalar.Siz hep cevaplayandınız,ilk kez soru sorarken görüyorum.Sağlık ve afiyette olmanızı dilerim.Size ulaşabileceğim bir mail adresi veya tel.numarasını özel mesaj olarak yazabilirmisiniz?Selamlar,saygılar...

Merhaba,
Evet, epeydir soru sormam gerekmemişti. Bugün kafama takıldı, epey de uğraştım; ama bir yöntem geliştiremedim.:tongue:
Kötü bir şey mi yaptım yoksa?
Msn'yi özele yolluyorum.

 

[CAFERCİFTCİ]

Olurmu öyle şey?....)

Mustafa Hocam,hiç öyle şey olurmu?Sizin cevaplarınızla çok şey öğrendiğimiz gibi,eminim sorunuzla da ona verilecek cevapla da dağarcığımızı geliştirmiş olacağız.Kendi adıma,size çok minnettarım.Sayenizde çok şeyler öğrendim.msn nizi göndermek lütfunda bulunduğunuz için de teşekkür ediyorum.Yarın hem kişi listeme ekleyeceğim,hem de bir konuda fikrinizi soracağım mail göndereceğim.
Hayırlı geceler diler saygılar sunarım...

 

[leumruk]

Cafer Bey,
Sözlerinizden dolayı teşekkür ederim. Bir faydamız olmuşsa ne mutlu. Elimden gelen bir şey olduğu sürece her zaman yardımcı olacağımdan şüpheniz olmasın. Hayırlı geceler.
Saygılar...

 

[Korhan Ayhan]

Selamlar,

Mustafa bey makro kaydet yöntemi ile aşağıdaki kodları elde ettim. Belki işinize yarayabilir.

WORD Dosyasına resim eklemek için;

Option Explicit

Sub RESİM_EKLE()
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Public\Pictures\Sample Pictures\Desert.jpg", LinkToFile:=False, _
         SaveWithDocument:=True
End Sub

EXCEL Dosyasına resim eklemek için;

Option Explicit

Sub RESİM_EKLE()
    ActiveSheet.Pictures.Insert ("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End Sub

 

[leumruk]

Teşekkür

Korhan Bey,
Teşekkür ederim. Yapmak istediğimi karşılıyor. Yalnız bir şey sormak istiyorum. Makro kaydet yöntemiyle kodları elde ettiğinizi yazmışsınız. Makro kaydet yöntemini kullanarak dosyayı kopyalayıp yapıştırdığımda sadece Selection.Paste kısmını elde edebilmiştim. Tekrar denedim sonuç aynı. Makro kaydetmenin farklı bir ayarı mı var?

 

[Korhan Ayhan]

Selamlar,

Mustafa bey direkt olarak bahsettiğiniz şekilde yaparsanız tüm kodları elde edemezsiniz. Bu tarz işlemleri yaparken excel menülerini kullanarak işlem yaparsanız makro kayıt anında yaptığınız işlemleri koda çevirebiliyor. Bazı işlemlerde kod olarak bir sonuç döndürmeyebilir.

Ben bu işlemi yaparken EKLE-RESİM menüsünü kullandığım için kod elde edebildim.

Sizin bahsettiğiniz şekilde klasör içindeki resim üzerinde sağ klik yapıp kopyala dediğinizde sadece WORD dosyasına yapıştırma işlemi yapılabiliyor. Diğer uygulamalara resim yapıştırmak bahsettiğiniz yöntemle sanıyorum yapılamıyor.

 

[leumruk]

Bilgilendirme için teşekkür ederim. Hayırlı geceler.