Bildposition
19.06.2019 20:32:40
Hopps
mit folgendem Code (danke an Daniel), lege ich eine Bildposition fest.
If Range("Z11") = "ja" Then
Pfad = ThisWorkbook.Path & "\Zeichnungen11\"
Dateiname = Dir(Pfad & Range("F3").Text & "*")
If Dateiname "" Then
ActiveSheet.Pictures.Insert(Pfad & Dateiname).Select
With Selection
.Top = Rows(36).Top
.Left = Columns(20).Left + Columns(4).Width / 2
If .Height > .Width Then
.Height = 200
Else
.Width = 200
End If
End With
End If
End If
Leider sind die Bilder nicht immer 2/3 oder 3/2 wo dies nicht unbedingt auffällt.Es sind teilweise Bilder auch mit dabei z.B. A: 419 x 1276 (also hoch und schmal) oder B: 2082 x 767 (also sehr breit und nicht hoch).
Wie kann ich z.B. festlegen, dass alle Bilder die in etwa im 2/3 oder 3/2 Format sind, wie oben eingefügt werden,
wenn sie jedoch zu A tendieren (ab 2/4), dann ebenso wie oben einfügen, jedoch eine andere Höhe bekommen,
und wenn sie zu B tendieren (ab 4/2) dann an einem ganz anderen Punkt eingefügt werden (jetzt bei T36, soll M48).
Allgemeine Frage:
Wie kann ich festlegen, dass die obere rechte Ecke des Bildes als Einfügepunkt festgelegt wird?
(ich hatte es mit "Right" versucht, jedoch kam da immer ein Fehler).
Ich hoffe, jemand kann mir behilflich sein?
Mit dankbaren Grüßen
Hopps