X5 - JPG Drag & Drop Ungültiger Header

[koter]

In Photopaint dann das Kürzel STRG+Umschalt+N / oder rechte Maustaste "Neu aus Zwischenablage" auswählen und dann funktioniert es ohne Probleme.

Hallo jeans,

Die Schritte kann man auch mit einem Makro automatisieren (falls Du viele Bilder brauchst)

Du Brauchst ein User-Form mit den Schaltflächen: StartButton und StopButton und folgendem Code:

Code:

Public autoNeuWeiter As Boolean

Sub autoNeu()
    Dim Zeit As Date
    Do
        If Not autoNeuWeiter Then Exit Do
        Zeit = Now
        If Clipboard.Valid Then
            Application.CreateDocumentFromClipboard
            Clipboard.Clear
        End If
        Do
            If Not autoNeuWeiter Then Exit Do
            DoEvents
        Loop Until Now >= DateAdd("s", 0.5, Zeit)
        DoEvents
    Loop
End Sub

Private Sub StartButton_Click()
    autoNeuWeiter = True
    StopButton.Visible = True
    StartButton.Visible = False
    Call autoNeu
End Sub

Private Sub StopButton_Click()
    autoNeuWeiter = False
    StopButton.Visible = False
    StartButton.Visible = True
End Sub

Private Sub UserForm_Terminate()
    autoNeuWeiter = False
    StopButton.Visible = False
    StartButton.Visible = True
End Sub

Das Makro fragt die Zwischenablage jede halbe Sekunde ab und erzeugt dadurch eine hohe CPU-Auslastung. Aber selbst mit meiner alten Kiste (P4/2,2 GHz) lässt es sich noch flüssig arbeiten.



Gruß

koter