..:: Resim Nesnesi Hep Görünsün ::..

[Ömer BARAN]

Hazırladığım excel belgesinde mevcut resim nesnesinin;
sayfa üzerinde sağa-sola ve yukarı-aşağı gezinirken hep ekranda görünür kalması mümkün müdür?


#7 no'lu mesajdaki sorum halen cevapsızdır.

 

[Mahir64]

Merhaba,

Sayfanın kod bölümüne uygulayıp deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

Fare ttıklandığında resim görünecektir.

--

 

[Seyit Tiken]

'Arka Plan' olarak yapabilirsiniz, resmi önce JPG olarak kaydedin > Arka Plan üzerinden resme ulaşıp yapabilirsiniz.

 

[Ömer BARAN]

Merhaba,

Sayfanın kod bölümüne uygulayıp deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

Fare ttıklandığında resim görünecektir.

--

Teşekkürler Sayın ÇÜMEN !...
Ancak sadace aşağı doğru kayıp bir hücre seçildiğinde en solda görünür hale gelirken sayfayı sağa doğru kaydırıp bir hücreyi seçtiğimde ekranda görmüyorum, baktığımda seçtiğim hücrenin satırında yine en sola geliyor. Anladığım kadarıyla makro, sadece aktif hücrenin satır bilgisini kullanıyor.
Maalesef makro işinden anlamadığım için bu kadar söylebiliyorum.

Şayet şöyle bir şey yaparsak çok iyi olur. Örneğin seçtiğim hücrenin kaç satır altında veya üstünde, seçtiğim hücrenin kaç sütun sağında veya solunda olacağını belirlemek için;
-- bu bilgi makroya, sağında ve 2 satır aşağısında gibi belirleme yapmak ya da
-- bu rakamı sayfadan almasını sağlamak
şeklinde düzenleme olursa sevinirim.
Sağlıcakla.

 

[Mahir64]

Makroya yeni merak salmış birisiyim.
Bu güne kadar formüller işimi görüyordu ama öğrenmekte fayda var.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(1, 1).Rows.Top
ActiveSheet.Shapes("Picture 1").Left = ActiveCell.Offset(1, 1).Rows.Left
End Sub

 

[Ömer BARAN]

Makroya yeni merak salmış birisiyim.

Bu söylediğinize inanmak güç Sayın ÇÜMEN.
Zira tecrübeniz tüm site müdavimlerinin malumudur.

 

[Ömer BARAN]

Konuyla ilgili son bir şey sormam lazım.
Başka sayfadaki nesneyi görüntülemek için kod içerisinde sayfa adını (nesnenin bulunduğu) nasıl belirteceğim. Diyelim ki ben makroyu AHMET sayfasında çalıştıracağım (kodu bu sayfanın kodlarına ekledim) ve resim nesnesinin kendisi ise 01.2014 sayfasında.
Kodda sayfa ismine ilişkin referansı nasıl belirteceğim ?

 

[Ömer BARAN]

#7 no'lu mesajdaki sorum halen cevapsızdır.

 

[Mahir64]

Resim mi çağıracaksınız? Sorunuzu anlamadım?

 

[levo26]

Sayın Ömer Baran,

Aşağıdaki kodu denermisiniz?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(1, 1).Rows.Top
ActiveSheet.Shapes("Picture 1").Left = ActiveCell.Offset(1, 1).Rows.Left
End Sub

Tüm Çalışma Kitabına uygulayabilmeniz için, her sayfanızda bu resmin olması gerekiyor. Eğer bu resim(ler) her sayfada varsa o halde Thisworkbook'un kod sayfasından SheetSelection_Change olayını kullanmanız yeterlidir.

 

[Ömer BARAN]

Merhabalar!...

Resim mi çağıracaksınız? Sorunuzu anlamadım?

Evet Sayın ÇÜMEN, resmi çağırmak istiyorum ama resim aynı belgede başka sayfada ve o sayfadaki hücrelerin resmi biçiminde. Eklediğim ilk belgede office'nin standart bir resmini sayfaya ekleyerek örneklemiştim.

Sizin bu sorunuz üzerine, picture nesnesi ile image nesnesi'nin aynı şey olmadığını fark etmiş oldum.

Sanırım resim deyince yanlış anlatmış oluyorum.

Image nesnesi demem gerekiyordu, çünkü o sayfadaki bazı hücrelerin resmi biçiminde.

Belgeyi yeniliyorum.

 

[Seyit Tiken]

Ömer bey, ilgili alanı seçip, resim olarak kopyalayın (shift'i basılı tutarak), ilgili sayfaya geçerek yapıştırın > Formül Çubuğunda alan adresini girin. Kodla gerekli düzenlemeyi kendinize göre yaparsınız.

 

[Ömer BARAN]

Ömer bey, ilgili alanı seçip, resim olarak kopyalayın (shift'i basılı tutarak), ilgili sayfaya geçerek yapıştırın > Formül Çubuğunda alan adresini girin. Kodla gerekli düzenlemeyi kendinize göre yaparsınız.

Eyvallah, sağ olunuz Sayın TİKEN !...
Ata binip at arıyormuşum, zaten yazdığım formülün başına sayfa adını yazsaymışım soru sorulmayacakmış.

Bazen oluyor böyle işte, insan en basit şeyi göremiyor.
İyi günler dilerim.