Du hast mir letzte Woche folgende Code gebastelt:
Const FULLNAME As String = "C:\Eigene Dateien\Eigene Bilder\Girl.jpg"
Sub Grafik()
Dim dblLeft As Double, dblTop As Double, dblOldW As Double, dblOldH As Double
Dim dblWidth As Double, dblFaktor As Double, objBild As Object dblLeft = [f5].Left
dblTop = [f5].Top
dblWidth = [h27].Offset(0, 1).Left - dblLeft
Set objBild = ActiveSheet.Pictures.Insert(FULLNAME)
With objBild
.Left = dblLeft
.Top = dblTop
dblOldW = .Width
dblOldH = .Height
dblFaktor = dblOldW / dblWidth
.Width = dblOldW / dblFaktor
.Height = dblOldH / dblFaktor
End With
End Sub
Das Ganze klappt super, allerdings wird das Bild immer in der Breite angepasst. Es kommt dann vor, dass das Bild in der Höhe übers Ziel hinaus schießt.
Ich hab zwar mal versucht ein wenig zu ändern, hat aber nicht geklappt.
Was muß ich noch ändern, damit das Bild auch in der Höhe passt, die Proportion aber erhalten bleibt?
Gruß
Carsten