Grafik dosyaları

[ilhanx]

Word dosyasında tüm grafik dosyaları tek seferde silinebilirmi?
Yardımlarınıza teşekkürler

test.docx

 

[Korhan Ayhan]

Merhaba,

Dosyanızı yedekledikten sonra aşağıdaki kodu deneyiniz.

Option Explicit

Sub Delete_All_Picture()
    Dim My_Shape As Shape
    
    If MsgBox("Dokümandaki tüm resimler silinecektir!", vbCritical + vbYesNo + vbDefaultButton2) = vbYes Then
        For Each My_Shape In ActiveDocument.Shapes
            My_Shape.Delete
        Next
        MsgBox "Tüm resimler silinmiştir.", vbInformation
    Else
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
    End If
End Sub

 

[ilhanx]

Option Explicit Sub Delete_All_Picture() Dim My_Shape As Shape If MsgBox("Dokümandaki tüm resimler silinecektir!", vbCritical + vbYesNo + vbDefaultButton2) = vbYes Then For Each My_Shape In ActiveDocument.Shapes My_Shape.Delete Next MsgBox "Tüm resimler silinmiştir.", vbInformation Else MsgBox "İşleminiz iptal edilmiştir.", vbInformation End If

Option Explicit
invalid inside procedure mesajı alıyorum

 

[Korhan Ayhan]

Nasıl uyguladığınızı bilemiyorum.

Prosedürde "Option Explicit" satırı modülün en üstünde olmalıdır. Sadece 1 adet olmalıdır. Bunu kontrol ediniz.

 

[mühendisberke]

Bu çok işime yarayacak. Önce sayfadaki grafikleri siliyor. Sonra öbür sayfaları gezip grafikleri siliyor.

Sub grafiksil()
Dim ws As Worksheet
Dim grafik As ChartObject
Dim i As Long
Dim kacsayfa As Long
kacsayfa = Sheets.Count
For i = 1 To kacsayfa
Sheets(i).Select
For Each grafik In ActiveSheet.ChartObjects
grafik.Delete
Next
Next i
End Sub

 

[ilhanx]

Hata benim yazım yanlışlığı
Sorun çözülmüştür ,
ilginize teşekkürler