Soru Resim 1 e çift tıklayınca resim büyüsün tekrar tıklayınca küçülsün

[nomercy99]

Merhaba Üstadlarım;

Başlıktaki işlemi aşağıdaki makrolarla buton yardımı ile yapıyorum ama kullanıcının işini kolaylaştırmak amacıyla çift tıklayınca Sub Resmi_buyut(),aynı resme tekrar çift tıklayınca Sub Resmi_kucult() makrosunu çalıştırabilir mi?

Yada bu şekilde olmuyorsa makrolarım çift tıklama komutuna ayarlanabilir mi?

Sub Resmi_buyut()

  Sheets("SİPARİŞ SAYFASI").Select
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Application.DisplayFormulaBar = False
        With ActiveWindow
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayWorkbookTabs = False
        End With
 Rows("2:2").RowHeight = 270
On Error Resume Next
strPic = "Resim 1"
Set shp = ActiveSheet.Shapes(strPic)

With Shape

       shp.ShapeRange.LockAspectRatio = msoTrue
       shp.Left = ActiveSheet.Range("A1").Left
       shp.Top = ActiveSheet.Range("A1").Top
       shp.Width = ActiveSheet.Range("A1:E2").Width
       shp.Height = ActiveSheet.Range("A1:E2").Height
End With

End Sub


Sub Resmi_kucult()
Rows("2:2").RowHeight = 113.25

On Error Resume Next
strPic = "Resim 1"
Set shp = ActiveSheet.Shapes(strPic)

With Shape

       shp.ShapeRange.LockAspectRatio = msoTrue
       shp.Left = ActiveSheet.Range("A1").Left
       shp.Top = ActiveSheet.Range("A1").Top
       shp.Width = ActiveSheet.Range("A1:C2").Width
       shp.Height = ActiveSheet.Range("A1:C2").Height
End With


End Sub

 

[Levent Menteşoğlu]

Geçmişte forumda hazırladığım bir Excel dosyasını paylaşayım. Faydası olacaktır.

 

[nomercy99]

Geçmişte forumda hazırladığım bir Excel dosyasını paylaşayım. Faydası olacaktır.

Hocam çok teşekkürler ama direk kendi modülüme yapıştırdığımda çalışmıyor.Benim excel de aAçık olmayan bir seçenek mi var acaba?

 

[nomercy99]

Geçmişte forumda hazırladığım bir Excel dosyasını paylaşayım. Faydası olacaktır.

Hocam şimdi anladım,resimlere makro atamışsınız.Ama benim dosyamdaki resimler değişken,ürün kodları değiştikçe dosyadan tekrar resim1 olarak çağırıyor.

 

[nomercy99]

Başka fikri olan bir üstadım da var mıdır acaba?Yeni fikir almak her zaman iyidir

 

[Korhan Ayhan]

Resmi değiştiren kodunuza eklenen resme makro ataması yapan kodları tanımlayabilirsiniz.

Linkteki konular size fikir verebilir.

Sorgu için arama sonuçları: onaction

www.excel.web.tr

 

[Levent Menteşoğlu]

Yukarıdaki kodlarınıza aşağıdaki koyu renkli ilaveyi yaparak deneyin. Tabii benim eklediğim dosyadaki buyut isimli makroyuda bir module kopyalamayı
unutmayın.

shp.onaction= = "buyut"

With Shape

       shp.ShapeRange.LockAspectRatio = msoTrue
       shp.Left = ActiveSheet.Range("A1").Left
       shp.Top = ActiveSheet.Range("A1").Top
       shp.Width = ActiveSheet.Range("A1:C2").Width
       shp.Height = ActiveSheet.Range("A1:C2").Height
       shp.onaction= = "buyut"
End With

 

[mrtank50]

Geçmişte forumda hazırladığım bir Excel dosyasını paylaşayım. Faydası olacaktır.

Levent bey merhaba
Burdaki sola dayama kodunu sağ'a dayama şeklinde nasıl değiştirebilirim.
Sanırım o kod bu ActiveSheet.Shapes(Application.Caller).TopLeftCell.Activate

 

[Levent Menteşoğlu]

Levent bey merhaba
Burdaki sola dayama kodunu sağ'a dayama şeklinde nasıl değiştirebilirim.
Sanırım o kod bu ActiveSheet.Shapes(Application.Caller).TopLeftCell.Activate

BottomRightCell olarak deneyin.

 

[mrtank50]

BottomRightCell olarak deneyin.

Malesef hiç bir değişiklik olmadı başka bir alternatif var mı acaba

 

[Levent Menteşoğlu]

Malesef hiç bir değişiklik olmadı başka bir alternatif var mı acaba

Siz ne istediğinizi resim olarak eklermisiniz.