Auflösung in HTML ändern
11.02.2004 17:44:35
Holger
Ich möchte eine Excel-Datei als HTML herausgeben, doch möchte ich sicherstellen, dass man diese HTML Datei auch bei 1024*768 lesen kann, ohne dann man rumscrollen muss.
Kann man die Auflösung im unterem Makro definieren ?
Sub HTML_speichern()
Dim strXLS As String
Dim Path1 As String, Path2 As String
Dim Dat1 As String, Dat2 As String
Path1 = "c:\test\"
Path2 = "d:\home\"
Dat2 = "Today"
Application.ScreenUpdating = False
strXLS = ActiveWorkbook.Name
ActiveWindow.SelectedSheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path2 & Dat2, _
FileFormat:=xlHtml
ActiveWorkbook.Close
ActiveWorkbook.SaveAs Filename:=Path1 & strXLS
End Sub
Anzeige