Sheet'e tıklanınca bir JPG dosya açılsın.

[kopernick]

Değerli Arkadaşlar,

Excelde herhangibir SHEET'i, mesela Sheet2'yi tıklayınca, daha önce hazırlamış olduğum ve Belgelerim klasöründe yer alan bir JPG dosyasının; ekranı kaplayacak şekilde, açılmasını istiyorum. Bunu nasıl yazabiliriz?

TEŞEKKÜR EDERİM.

SAYGILARIMLA

 

[parametre]

burayaugramanızda fayda gorunmektedir bilginize

 

[kopernick]

Sayın Parametre,

Cevabınız için teşekkürler.
Ancak cevabınızın içeriğinde yer alan konu çok farklı. Ben sadece bir sheet tıklandığında bir JPG dosyasının açılması konusunun nasıl makro ile yazılabileceğini öğrenmek istemiştim. Tıklanınca açılacak bir JPG masa üstü ya da kayıtlı olan herhangibir konumdan bir resim dosyası açtırmak amaç. Hepsi bu kadar.

SAYGILARIMLA

 

[parametre]

Sub resimgetirmek()
'
' resimgetirmek Makro
' Makro Masa01 tarafından 14.04.2010 tarihinde kaydedildi.
'

'
Sheets("Sayfa2").Select

Application.CommandBars("Task Pane").Visible = False
Range("D12").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Günbatımı.jpg" _
).Select
ActiveWindow.SmallScroll Down:=9
Selection.ShapeRange.ScaleHeight 3.4, msoFalse, msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=63
End Sub

burada bir makro yazdım ama tam olarak ne isteniyor her sayfada ayrı resimmi acılacak arka planmi olacak resimler sorunuz net değil