Excel Üstbilgi Resim Koyma

[hlojan]

Merhaba ,

Excel üst bilgi 3 kutucuklu (altalta) tablo desteklemiyor. Ama resim destekliyor

Excelden 3 hücreyi altalta tablo haline getirsem. Resime çevirsem.

Üstbilgiye eklesem / VBA ile

Mümkün olurmu acaba .

Dinamik üstbilgi olmasını istiyorum çünkü

Yardımlarınızı bekliyorum

 

[hlojan]

Örnek Dosya

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

ActiveSheet.PageSetup.RightHeader = [M2] & Chr(10) & [M3] & Chr(10) & [M4]

 

[hlojan]

Ama yukardaki gibi tablo şeklünde gözükmesi gerekiyor.

O yuzden 3 hücreyi kopyala > resim olarak yapıştır > Üst bilgi sağ üst ekle gibi bir vba gerekiyor.

 

[Korhan Ayhan]

Bu işlemi gizli satırlarda yapsanız işinizi görmez mi?

Not: Denemedim. Belki olmuyordur.

 

[Seyit Tiken]

Hedefe ulaşıyorsak, ÇİZGİLER bir önem taşıyor mu?

 

[hlojan]

Bu işlemi gizli satırlarda yapsanız işinizi görmez mi?

Not: Denemedim. Belki olmuyordur.

Gizli satırlardan varsayımınızı anlayamadım. Başlıkları yazdır denedim olabilirdi. Ama oda ilk sayfa etkileniyor.

İlk sayfa üst bilgisi olmaması lazım.

bu küçük bilgi değişken ve üstbilgide verebilmem lazım.

Tek yolu bilgim dahilinde farklı sayfada vba ile resime çevirmek üst bilgi eklemek

ActiveSheet.Pictures.Paste.Select

Burda takıldığım birinci nokta resime çevirirken çözünürlük yüksek olması kaynak hücrenin boyutlarında görüntünün bozulması


Resimi büyütünce düzgün görünüyor.

İkinci nokta ise bir sayfada yapıştırdığım resimi tanımlayıp

ActiveSheet.PageSetup.RightHeader = & tanımlanan resim &

kod ile yerleştirmek.

Ben bir yerden araştırıyorum. umarım burdan birisi yardımcı olur.

iyi Çalışmalar

 

[hlojan]

Hedefe ulaşıyorsak, ÇİZGİLER bir önem taşıyor mu?

Teşekkürler ilgin için. O tablo standard olduğundan önem taşıyor malesef.

Keşke taşımasada bende halletsem

 

[hlojan]

Hala bir çözüm bulamadım. Vba ile 3 hücreyi resim çekip sağ üst bilgiye yerleştirmenin çözümü hakkında bilgisi olan

 

[çıtır]

Excel Kamera özelliğini kullanınız.

 

[halit3]

Bu dosyayı irdele
uygulama şöyle olacak mause ile resim çekilecek alanı seç ve sonra
(seçilen alanı üst bilgi olarak kayıt et) düğmesine tıkla

 

[hlojan]

Office 2007 Kamera özelliği yok galiba.

Şimdi şöyle bir ilerleme kaydettim.

Hücreden kopyala resim yapıştır kalite kaybediyor.

O yüzden

Şekillerden 3 kutucuk yaptım. tablo gibi birleştirdim. Kopyala yapıp resim olarak yapıştırdım. Kalite kaybolmadı.

Exceldeki resimi üst bilgi sağ kutucuğa koymam gerekiyor.
Bunun için exceldeki resmi dosyaya kaydetmem gerekiyor.
sonra o dosyadaki resmi üst bilgi sağ kutucuk yapıştırmam gerekiyor.

VBA ile

3 kutucuk selection copy picture.paste yapmam
yapışan resmi dosyaya kaydetmem
ve kaydolan resmi üst bilgiye eklemem gerekiyor

Bende bir yandan ilerliyorum umarım yardımı olan olur

Dosyamı ekledim

 

[hlojan]

Bu dosyayı irdele
uygulama şöyle olacak mause ile resim çekilecek alanı seç ve sonra
(seçilen alanı üst bilgi olarak kayıt et) düğmesine tıkla

Denedim. Üst bilgi gözükmedi. dosyayı izledim. dosya oluşmadı. modülleri kurcalayım biraz.

 

[halit3]

Örnek olarak resim ekliyorum J4 -P17 aralığını seçtim ve
(seçilen alanı üst bilgi olarak kayıt et) komut düğmesine tıkladım
yazdırma önizlemesinde de gözüküyor.
seçilen alana ve oluşturulan resime ait ekran görüntüsünü ekliyorum.

 

[hlojan]

Örnek olarak resim ekliyorum J4 -P17 aralığını seçtim ve
(seçilen alanı üst bilgi olarak kayıt et) komut düğmesine tıkladım
yazdırma önizlemesinde de gözüküyor.Ekli dosyayı görüntüle 209242Ekli dosyayı görüntüle 209244
seçilen alana ve oluşturulan resime ait ekran görüntüsünü ekliyorum.Ekli dosyayı görüntüle 209245

halit bey tamamen şirketteki bilgisayar ile alakalı galiba. evdeki bilgisayarda çalıştı.
Biraz daha kurçalayacağım. Şekilleride destekledi
Çok Teşekkürler.

 

[halit3]

Teşekkürler iyi çalışmalar