.PrintObject in freigegebner Datei
otto
ich möchte alle Bilder eines Tabellenblattes auf "nicht drucken" setzen. Im Freigabemodus der Datei funktioniert das nicht. Kommt Fehler beim Select des Picture.
Sheets("Tabelle1").Select
ActiveSheet.Shapes("Picture 176").Select
With Selection
.PrintObject = False
End With
ActiveSheet.Shapes("Picture 177").Select
.PrintObject = False
End With
Sheets("Tabelle2").Select
...
So ging es auch nicht:
Dim sh As Shapes
For Each sh In ActiveSheet
sh.PrintObject = False
Next
Diese Aktion muss in 4 verschiedenen Tabellenblättern durchgeführt werden
otto