Sub
Artikel_einfügen()
Dim
Höhe
As
Integer
Dim
Breite
As
Integer
On
Error
GoTo
Weiter
ActiveSheet.Range(
"V21"
).Clear
ActiveSheet.Shapes(
"Artikel"
).Delete
Weiter:
On
Error
GoTo
ERRORHANDLER
Sheets(
"Werkzeugdoku"
).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
ActiveSheet.Range(
"V21"
).Clear
MsgBox
"Es war kein Bild in der Zwischenablage!"
End
If
ERRORHANDLER:
If
Err <> 0
Then
MsgBox
"Es war kein Bild in der Zwischenablage!"
End
If
End
Sub