Pdf Kaydetme - Yazdırma Nesne Kontrol

[hlojan]

Bir excel dosyam var.

İçindeki resmi yazdırırken gözükmesin istiyorum

Pdf kaydederken gözüksün istiyorum

Resmi Özelliklerden Nesneyi Yazdır ı kaldırdığımda ikisindede gözükmüyor.

Yada Nesne Yazdır tıkladığımda ikisindede gözüküyor.

Ben Vba kodlama ile Resmin Nesneyi yazdır komutunu kontrol etmek istiyorum

Yardımlarınızı bekliyorum iyi çalışmalar

 

[hlojan]

ActiveSheet.ChartObjects("Chart 1").Chart.PrintOut

böyle bir kod buldum ama

Bunu resim için nasıl yapabiliriz.

Yardımlarınızı bekliyorum

 

[halit3]

Bu kodu bir dene

Sub Makro1()

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.PrintObject = False
End If
Next Picture

End Sub