Mit .PageSetup kann ich Seitenformatierungen setzen
z.B.
With ActiveSheet.PageSetup
.Orientation = xlLandscape ' Querformat
.PrintArea = "$A$1:$H$376"
End With
meine Frage ist: wie kann ich Seitenformatierungen abfragen ?
Ich benötige dies, weil ich eine Kopie einer Excel Datei anlegen will
die nur Inhalte enthalten soll (kein VBA Code oder Verknüpfungen)
Dank Hajos Hilfe habe ich das nun fertig, aber die Seiteformatierung stimmt
nicht. Ich möchte deshalb von jedem Quellblatt die Formatierung abfragen und
diese dann zuweisen. (Oder geht das noch einfacher ?) mit einem PasteSpecial
das ich noch nicht kenne?
Bisher benutze ich:
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Vielen Dank im Voraus
Gruß Horst