Laufzeitfehler bei Sendkeys
15.06.2006 21:22:39
Armin
ich habe jetzt schon einiges gegoogelt, komme aber nicht weiter:
Private Sub CommandButton_ErgebnisseUploaden_Click()
Dim appid As Double
Const Auswertungsfile = "C:\Daten\Armin\Homepage\images\AWMAuswertung.gif"
ActiveSheet.Range("B1", ActiveSheet.Range("F1").End(xlToRight).End(xlDown)).Select
Selection.Copy
appid = Shell("mspaint.exe " & Auswertungsfile, 1)
'Sicherstellen dass mspaint den Fokus hat
AppActivate appid
SendKeys "%{INSERT}"
SendKeys "^S"
SendKeys "%{F4}"
End Sub
leider kommt bei appactivate immer ein laufzeitfehler 5 warum und wie mache ich das auf eine andere (richtige) art, in ein gif-file per mspaint die zwischenablage einzufügen?
danke für eure hilfe.
lg armin