Makroya İlave (Nesne Tipi)

[1Al2Ver]

Merhaba,

Aşağıdaki kod ilave yapılarak, GRAFİK'lerin de silinmemesini sağlamak istiyorum,

........
For Each nesne In ActiveSheet.Shapes
If nesne.Type <> 13 And nesne.Type <> 12 And nesne.Type <> 8 Then
nesne.Delete
End If
Next nesne
........

Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Tip 3'ü de eklemeniz gerekiyor.

If nesne.Type <> 13 And nesne.Type <> 12 And nesne.Type <> 8 And nesne.Type <> 3 Then

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Nesne As Shape
    For Each Nesne In ActiveSheet.Shapes
        Select Case Nesne.Type
            Case 3, 8, 12, 13
            Case Else: Nesne.Delete
        End Select
    Next
End Sub

 

[1Al2Ver]

Sayın dalgalikur merhaba,

Duyarlığınız ve çözüm için teşekkür ederim,

Type3 = Grafik sanırım,

Örneğin ; Nesne Type 8, Nesne Type 12, Nesne Type 13,, Nesne Type 1 vb. neleri kapsıyor?

Rica etsem , Nesne Type leri içeren listeyi paylaşır mısınız ?

Teşekkür ederim.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Teşekkür ederim, kullandığım koda alternatif oldu,

Saygılarımla.

 

[Ömer]

Merhaba,

Linki inceleyiniz.

MsoShapeType enumeration (Office)

Office VBA reference

docs.microsoft.com

.

 

[1Al2Ver]

Sayın Ömer merhaba,

Link için teşekkür ederim,

Saygılarımla.

 

[Korhan Ayhan]

Linki ben değil Ömer bey paylaştı.

 

[1Al2Ver]

Sayın Korhan Ayhan, merhaba,

Son anda fark edip düzelttim, ama zamanlama olarak biraz geciktim sanırım,

Bu vesileyle Sayın Ömer'e bir özür, size de uyarı için teşekkür borçluyum...

Teşekkür ederim.