küçük resim

[merttbey]

Arkadaşlar excel de küçük resimleri koşullu biçimlendirmedeki gibi veya başka bir türlü isteğe bağlı olarak gözterip gizleyebilirmiyiz

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Makro kodları ile mümkün. Ekteki dosyayı inceleyiniz.

Sub kod_gizle()
    ActiveSheet.Shapes("Picture 1").Visible = False
End Sub

Sub kod_göster()
    ActiveSheet.Shapes("Picture 1").Visible = True
End Sub

. . .

 

[merttbey]

Hüseyin hocam ekteki dosyayı açtığımda karman çorman yazılar var.

 

[merttbey]

hüseyin hocam kod çalıştı ve işimi görcek gibi ancak bu makroyu A1 hücresi 1 den büyükse resmi göster 1 den küçükse resmi gizle şeklinde yapılabilir mi

 

[Emir Hüseyin Çoban]

. . .

Yapılır.
Sayfanın kod bölüme aşağıdaki kodları yapıştırın.
Sayfa1 de A1 hücresinde değişiklik yapınca kodlar çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$a$1" Then Exit Sub
If Range("a1") > 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End Sub

. . .

 

[1Al2Ver]

Merhaba,

Alternatif,

ToggleButton ile Gizle-Göster ,

Koddaki resim adı Picture3 tür, siz kendi resim adınızı yazarsınız.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
ActiveSheet.Shapes("Picture 3").Visible = True
Else
ToggleButton1.Caption = "Gizle"
ActiveSheet.Shapes("Picture 3").Visible = False
End If
End Sub

 

[merttbey]

Hay Allah razı olsun olsun arkadaşlar.Çok teşekkür ederim.Çok yardımcı oldunuz

 

[merttbey]

iki resmi ayrı ayrı gizlemek

Arkadaşlar emek verdiniz teşekkür ederim çok yardımcı oldunuz. Bir isteğim daha var ekli dosyada örnek olarak görebilirsiniz.

iki resmi ayrı ayrı gizleyebilirmiyim.
Sizim kodları A1 hücresi için uyarladığımda resimler gizleniyor ancak a1 ve b1 hücrelerine veri girdiğimde ayrı ayrı gizleyebilirmiyim.

 

[Emir Hüseyin Çoban]

Arkadaşlar emek verdiniz teşekkür ederim çok yardımcı oldunuz. Bir isteğim daha var ekli dosyada örnek olarak görebilirsiniz.

iki resmi ayrı ayrı gizleyebilirmiyim.
Sizim kodları A1 hücresi için uyarladığımda resimler gizleniyor ancak a1 ve b1 hücrelerine veri girdiğimde ayrı ayrı gizleyebilirmiyim.

. . .

A1 de Resim1' i
A2 de Resim2' yi gizleyip göstermek mi istiyorsunuz?

. . .

 

[merttbey]

ewet aynen hüseyin bey

 

[Emir Hüseyin Çoban]

ewet aynen hüseyin bey

. . .

Çalışma sayfasının Kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Call kod_bir
Else
End If

If Target.Address(0, 0) = "A2" Then
Call kod_iki
Else
End If
    
End Sub

Boş bir modüle

Sub kod_bir()
If Range("a1") > 1 Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End Sub


Sub kod_iki()
If Range("a2") > 1 Then
ActiveSheet.Shapes("Picture 2").Visible = True
Else
ActiveSheet.Shapes("Picture 2").Visible = False
End If
End Sub

. . .

 

[merttbey]

Hüseyin bey kod süper çalışıyor elinize sağlık. Yanlız ben bu kodun aynısını B1 hücresi için yazmıştım orda çalışmadı merağımdan soruyorum.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
A2 değişikliklerinde çalışmada bir hata vardı.
Kodları üst mesajımda yeniledim. Son halini deneyiniz.

. . .