Hallo, ich habe ein Programm geschrieben, in dem ein Bild aus der Zwischenablage eingefügt wird und sich die Größe automatisch anpasst. Über eine If Bedingung prüfe ich, ob der Benutzer nicht einen Text in der Zwischenablage hatte. Um einen Error auszuschließen, falls sich nichts in der Zwischenablage befindet, habe ich einen Error handler eingesetzt, leider Funktioniert dieser nicht. Könnt ihr mir bitte helfen?
Der Code wäre:
On Error GoTo ERRORHANDLER
ActiveSheet.Range("V21").Select
ActiveSheet.Paste
Set Artikel = Selection
Artikel.Name = "Artikel"
If ActiveSheet.Range("V21").Value = "" Then
Artikel.Width = 210
Höhe = Artikel.Height
Breite = Artikel.Width
If Höhe / Breite > 0.39 Then
Artikel.Height = 85
Breite = Artikel.Width
PositionLinks = Artikel.Left
Verschiebung = 106.3 - Breite / 2
Artikel.Left = Verschiebung + PositionLinks
End If
Else
If ActiveSheet.Name = "Werkzeugdoku" Then
ActiveSheet.Range("V21").Clear
MsgBox "Es war ein Text und kein Bild im Zwischenspeicher!"
End If
End If
ERRORHANDLER:
If Err <> 0 Then
MsgBox "Es war kein Bild in der Zwischenspeicher!"
End If
Der Code hängt sich immer bei Artikel.Width = 210 auf, logischerweise.
Der Errorandler wird einfach außer Kraft gesetzt.
Ich danke euch für Ihre antworten.
Mit freundlichen Grüßen,
Phillip Rockrohr
|