Hi,
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