AppActivate
16.06.2006 19:30:12
Armin
ich stelle die frage noch mal rein, weil ich denke, die antwort ist ganz einfach, aber ich komm nicht drauf:
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 ist das so 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