DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Option ExplicitOption 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