alle Grafiken ausblenden
05.02.2004 10:12:30
junny
ich möchte beim öffnen einer Vorlage alle darin enthaltenen Grafiken ausblenden.
Wie muss ich das schreiben?
Mein jetziger Code blendet die erste Grafik aus.
Sub auto_open()
Worksheets("Holzliste").Activate
ActiveSheet.Pictures(1).Visible = False
If Cells(1, 1) = 0 Then
Benutzer = InputBox("Benutzer: ")
Cells(1, 1) = Benutzer
Cells(4, 18) = Date
'SpeichernUnter
ThisWorkbook.SaveAs Filename:="\\Server02\fertigung\Betriebsaufträge\" & Range("A3") & Format(Now, "_DD.MM.YYYY_hh.mm") & ".xls"
End If
End Sub
Danke volker
Anzeige