Thema Datum  Von Nutzer Rating
Antwort
Rot Excel - Pfad nicht komplett
03.12.2018 10:38:29 Danyel
NotSolved
03.12.2018 11:52:51 ugor
NotSolved

Ansicht des Beitrags:
Von:
Danyel
Datum:
03.12.2018 10:38:29
Views:
22
Rating: Antwort:
  Ja
Thema:
Excel - Pfad nicht komplett

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel - Pfad nicht komplett
03.12.2018 10:38:29 Danyel
NotSolved
03.12.2018 11:52:51 ugor
NotSolved