Größe des Anwendungsfensters festlegen
24.01.2004 14:38:43
Alexander
Ich öffne aus Access mittels VBA eine Excel-Datei in einem neuen Fenster, das ich in der Größe ändern möchte. Dabei habe ich folgendes programmiert:
Private Sub Befehl2_Click()
Dim objExcel
Dim oWorkbook As Object
Set objExcel = CreateObject("Excel.Application")
'Excel Datei öffnen und Symbolleisten ausblenden
objExcel.Workbooks.Open Filename:="C:\ABC1.xls", ReadOnly:=False
objExcel.Application.CommandBars("Standard").Visible = False
objExcel.Application.CommandBars("Formatting").Visible = False
objExcel.Application.DisplayFormulaBar = False
objExcel.Application.Caption = "Pareto Analyse"
'Breite des Fensters ändern
objExcel.Application.WindowState = xlNormal
objExcel.Application.Width = 400
'Zeilen- und Spaltenüberschriften ausblenden
With objExcel.Application
For Each oWorksheet In .Worksheets
oWorksheet.Activate
With .ActiveWindow
.DisplayHeadings = False
End With
Next
End With
objExcel.Visible = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Closing"
End Sub
Dabei erhalte ich ständig den Fehler 'Laufzeitfehler 1004 - Die WindowState Eigenschaft des Application-Objekts kann nicht festgelegt werden.'. Wenn ich WindowState weglasse gibts die Meldung: 'Laufzeitfehler 1004 - Die Width-Eigenschaft des Application-Objekts kann nicht festgelegt werden'.
Allerdings habe ich Lese-Zugriff auf die Eigenschaft, d.h. z.B. liefert
MsgBox objExcel.Application.Width
einen gültigen Wert.
Irgendeine Idee, wie ich die Breite zuordnen kann (ich bin langsam am verzweifeln)?
Danke und Gruß,
Alexander
Anzeige