Resim gizleme (şartlı)

[netvolxxx]

mehaba çalışma sayfamda h28 alanında x yazdığmda satırları gizleme kodum var kullandığım b alanında resimler var bunları gizlemeyi nasıl yapıcam bi türlü olmadı resimler üst üste biniyor.
hücrelerde birleştirme var
resimler hücreler arasında b28:b32 den başlıyor +5 olarak devam ediyor 477 e kadar

kod tarafında nasıl bir ekleme yapmam gerekiyor yardımlarınızı bekliyorum....

Private Sub CommandButton1_Click()
Dim i As Integer, a As Integer

Application.ScreenUpdating = False
For i = 28 To 477
a = Cells(i, "H").MergeArea.Cells.Count
If Cells(i, "H") = 0 Then
Rows(i).Resize(a, 1).EntireRow.Hidden = True
End If
If a > 1 Then i = i + a - 1
Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'otamatik sıra no veren ayar yeri
If Intersect(Target, Range("H28:H" & Rows.Count)) Is Nothing Then Exit Sub
Range("A28:A" & Rows.Count).ClearContents
With Range("A28:A" & Cells(Rows.Count, "H").End(3).Row)
.Formula = "=IF(H28="""","""",COUNTA(H$28:H28))"
.Value = .Value

End With
End Sub

 

[netvolxxx]

örnek dosyayı da yükledim daha iyi anlaşılması için

 

[Muzaffer Ali]

Merhaba.
Resimlerden birini seçip CTRL+A tuşlarına basarak hepsini seçili hale getirin.
Resimlerden birini sağ tıklatıp "Boyut ve Özellikler" seçin.
Özellikler kısmındaki "Hücrelerle taşı ve boyutlandır" seçin.

 

[netvolxxx]

Merhaba.
Resimlerden birini seçip CTRL+A tuşlarına basarak hepsini seçili hale getirin.
Resimlerden birini sağ tıklatıp "Boyut ve Özellikler" seçin.
Özellikler kısmındaki "Hücrelerle taşı ve boyutlandır" seçin.

dediğiniz gibi yapınca oldu peki resim ekleyince bunu default olarak nasıl yapıcam Hücrelerle taşı ve boyutlandır hep seçili gelmesi için

 

[Muzaffer Ali]

Aşağıdaki gibi yapabilirsiniz.

Resim.Placement = xlMoveAndSize

 

[netvolxxx]

Aşağıdaki gibi yapabilirsiniz.

Resim.Placement = xlMoveAndSize

verdiğiniz kodla denedim olmadı yada ben yapamadım
teşekür ederim bilgilendirme ve yardımlarınız için ayrıca...

şu kodla işim çözüldü

Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True

 

[Muzaffer Ali]

Rica ederim.
Zaten sizin almanız gereken kısım .Placement = xlMoveAndSize burasıydı. Kendinize uyarlayacaktınız. Onu da yapmışsınız.
Kolay gelsin.

 

[Muzaffer Ali]

Ama bence her seferinde tüm sayfadaki resimleri yeniden düzenlemenize gerek yok.
Sadece yeni resim eklediğinizde .Placement = xlMoveAndSize şeklinde özellik belirleseniz daha doğru olur.

 

[netvolxxx]

Ama bence her seferinde tüm sayfadaki resimleri yeniden düzenlemenize gerek yok.
Sadece yeni resim eklediğinizde .Placement = xlMoveAndSize şeklinde özellik belirleseniz daha doğru olur.

tamamdır üstad dediğini uyguladım çok teşekürr ederim...