Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shell-Befehl-Fenstergröße festlegen

Shell-Befehl-Fenstergröße festlegen
Markus
Hallo Excel-Spezies,
wie kann ich meinen einfachen VBA-code ergänzen/ändern, um die Fenstergröße des zu öffnenden Programms (Test.chm) festzulegen.
Private Sub Image1_Click()
Shell "hh.exe " & ActiveWorkbook.Path & "\" & "Test.chm", vbNormalFocus
End Sub
Danke schonmal

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Shell-Befehl-Fenstergröße festlegen
18.09.2009 11:44:16
Markus
Hallo Hajo,
danke für den Link, ich dachte aber an bestimmte Höhe/Breite des zu öffnenden programms.
Grüße
AW: Shell-Befehl-Fenstergröße festlegen
18.09.2009 15:20:43
Anton
Hallo Markus,
probier's so:

Option Explicit
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, _      
  ByVal hWndInsertAfter As Long, _    
  ByVal X As Long, _  
  ByVal Y As Long, _  
  ByVal cx As Long, _  
  ByVal cy As Long, _  
  ByVal wFlags As Long)  
Private Declare Function GetForegroundWindow Lib "user32" () As Long      
Sub fensterposition()
  Dim links As Integer, oben As Integer    
  Dim breite As Integer, hoehe As Integer    
  links = 100
  oben = 100
  breite = 500
  hoehe = 400
  Shell "hh.exe " & ActiveWorkbook.Path & "\" & "Test.chm", vbNormalFocus
  SetWindowPos GetForegroundWindow, 0, links, oben, breite, hoehe, &H40  
End Sub  

mfg Anton
Anzeige
AW: Shell-Befehl-Fenstergröße festlegen
19.09.2009 17:37:28
Markus
Hallo Anton,
danke für deinen Vorschlag, abere leider kommt ein kompilierungsfehler.
und wie verknüpfe ich den code mit meinem Button.
Grüße
AW: teste mal
20.09.2009 09:47:05
Markus
Hallo Anton,
so geht's. Vielen Dank!
Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige