Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programm-Aufruf aus VBA

Programm-Aufruf aus VBA
09.01.2006 13:42:37
Celofiga
Hallo!
Kann ich mittels VBA auch ein Programm wie z. B. Paint aufrufen und dort dann etwas einfügen?
Gruss Mario

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Programm-Aufruf aus VBA
09.01.2006 14:12:01
Ramses
Hallo
Ja, das get mit der SHELL Funktion.
Genaueres dazu siehe VBA-Online Hilfe
Gruss Rainer
AW: Programm-Aufruf aus VBA
09.01.2006 14:59:52
Celofiga
Danke für die rasche Antwort.
Habe es soeben getestet, jedoch gibt es ein Problem mit dem Code:
Dim Ergebnis, I
Range("B1:H32").Select
Selection.Copy
Ergebnis = Shell("mspaint.exe", 1) ' Paint starten.
AppActivate Ergebnis ' Paint aktivieren.
SendKeys "^V", True ' Selection einfügen
Die Anweisung "AppActivate Ergebnis" bringt einen Laufzeitfehler!
Was kann ich tun?
Gruss Celo
AW: Programm-Aufruf aus VBA
09.01.2006 15:45:21
Celofiga
Hallo!
Die Anweisung "AppActivate Ergebnis" bringt jetzt keinen Laufzeitfehler mehr, da ich "Wait" für 5 Sekunden eingebaut habe, jedoch funktioniert die Anweisung "SendKeys" nicht.
Bitte um Hilfe.
Danke,
Celo
Anzeige
AW: Programm-Aufruf aus VBA
09.01.2006 16:24:26
Ramses
Hallo
Ctrl+V versteht Paint so nicht ;-)
Du musst die reguläre Befehlsfolge nachahmen
Option Explicit

Sub Makro2()
    Dim ergebnis As Integer
    Range("A1:C4").Select
    '!!!!!!!!!!
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    '!!!!!!!!!
    ergebnis = Shell("mspaint.exe", vbNormalFocus) ' Paint starten.
    Application.Wait Now + TimeSerial(0, 0, 2)
    SendKeys "%Be", True ' Selection einfügen
End Sub

Gruss Rainer
Anzeige
AW: Programm-Aufruf aus VBA
09.01.2006 17:03:19
Celofiga
Danke!!!
Super!!
Jetzt funktioniert es!!
Gruss,
Celo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige