ich benötige Eure Hilfe. Ich möchte ein Tabellenblatt in eine Datei ausgeben. Nun ist das immer im Querformat, ich benötige aber Hochkant. Wie kann ich das umstellen?
Mein Makro ist derzeit:
Sub ScreenShot()
Dim wks As Worksheet
Dim cht As Chart
Dim intCounter As Integer
Application.ScreenUpdating = False
Set wks = ActiveWorkbook.ActiveSheet
' ? wks.PageSetup.Orientation = xlPortrait ? Wie baue ich das ein?
wks.Range(wks.PageSetup.PrintArea).CopyPicture Appearance:=xlScreen, _
Format:=xlPicture
Set cht = Charts.Add
cht.ChartArea.Clear
On Error Resume Next
With cht
.Paste
End With
On Error GoTo 0
cht.Export "f:\" & wks.Name & ".jpg"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Call SendMessage("f:\" & wks.Name & ".jpg")
End Sub
Ich bedanke mich schon jetzt für die Mühen
Gruß
Hermann