wie kann ich eine Excel 2010 Datei in einer bestimmten Größe starten lassen? Es soll ein individueller "Rechner" erstellt werden der sich wie der Windows Taschenrechner darstellen lassen soll.
VD & VG
Björn
Option Explicit
Private Declare Function MoveWindow Lib "user32.dll" _
(ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub Main()
Dim hWnd As Long
hWnd = FindWindow("XLMAIN", Application.Caption)
MoveWindow hWnd, 10, 20, 600, 800, &HF
End Sub
Kann dann auch über "Private Sub Workbook_Open()" gestartet werden.