|
Hi,
ich habe ein Makro, dass Zeile X8 selektiert und kopiert (es ist ein Bild) und dann Paint öffnet.
Dann führt Paint bestimmte Keys aus um z.B. das Bild auf PNG zu ändern etc.
Das einzige Problem das jetzt noch besteht ist das obwohl in einer Variable "bezeichnung" der string Wert für den Pfad korrekt ist, Paint das Bild nicht abspeichern kann, da er aus C:\User\Destkop\Bilder z.B ser\Destkop\Bilder macht oder :\User\Destkop\Bilder.
Sprich es werden Buchstaben am Anfang weggelassen.
Und das verwundert mich sehr
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | Sub Plot()
Dim appID As Integer
bezeichnung = ActiveWorkbook.Path & "\Bilder\" & Worksheets("Tabelle1").Range("X5") & ".png"
Sheets("Tabelle1").Range("X8").Select
Selection.Copy
appID = Shell("mspaint.exe", vbNormalNoFocus)
Application.Wait Now + TimeValue("0:00:03")
AppActivate appID
SendKeys "^e", True
SendKeys "10", True
SendKeys "{TAB}", True
SendKeys "10", True
SendKeys "~", True
SendKeys "^v", True
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "^s", True
SendKeys bezeichnung, True
SendKeys "{TAB}", True
SendKeys "{down 2}", True
SendKeys "{TAB}", True
SendKeys "~", True
SendKeys "%{F4}", True
End Sub
|
|