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
Sub Plot()
'
' "^" steht für Strg
' "%" steht für Alt
' "~" steht für Enter
Dim appID As Integer
bezeichnung = ActiveWorkbook.Path & "\Bilder\" & Worksheets("Tabelle1").Range("X5") & ".png"
' bereich auswählen und screen machen
Sheets("Tabelle1").Range("X8").Select
Selection.Copy
' Paint öffnen
appID = Shell("mspaint.exe", vbNormalNoFocus)
'Sicherstellen dass Paint den Fokus hat
Application.Wait Now + TimeValue("0:00:03")
AppActivate appID
SendKeys "^e", True
SendKeys "10", True
SendKeys "{TAB}", True
SendKeys "10", True
SendKeys "~", True
' einfügen des bildes
SendKeys "^v", True
Application.Wait (Now + TimeValue("0:00:02"))
' speichern der Datei
SendKeys "^s", True
SendKeys bezeichnung, True ' Name
SendKeys "{TAB}", True
SendKeys "{down 2}", True
SendKeys "{TAB}", True
SendKeys "~", True
'Schließen von Paint mit [Alt]+[F4]
SendKeys "%{F4}", True
End Sub
|