VBA Bilder einfügen, Seitenverhältnis sperren
09.08.2017 07:59:05
Bernd
ich steh gerade auf dem Schlauch und finde den Knoten in meinem Hirn nicht :(
Ich lasse mir per VBA Bilder in eine Excel-Tabelle einfügen. In dieser Tabelle habe ich fest definierte Bereiche verbunden. Ich weiß, das ist nicht gerade optimal, aber nur so kann ich ein gleichbleibendes Layout garantieren.
Das Bild lasse ich mir mit folgendem Code aus einer Userform in die Tabelle laden:
Set objPicture = ActiveSheet.Shapes.AddPicture(Filename:=Me.TextBox6.Text, _
Linktofile:= msoFalse, savewithdocument:=msoTrue, left:=WS.Cells(94, 2).left, _
top:=WS.Cells(94, 2).top, height:=Range("B94:AE114").height, _
width:=Range("B94:AE114").width)
objPicture.Name = "Bild1"
Set objPicture = Nothing
ich habe bereits versucht in diesen Code noch die Funktion LockAspectRatio einzubauen, bekomme aber dann einen "Laufzeitfehler 448 Benanntes Argument nicht gefunden"...
Set objPicture = ActiveSheet.Shapes.AddPicture(Filename:=Me.TextBox6.Text, _
Linktofile:= msoFalse, savewithdocument:=msoTrue, LockAspectRatio:=msoTrue, _
left:=WS.Cells(94, 2).left, top:= WS.Cells(94, 2).top, _
height:=Range("B94:AE114").height, width:=Range("B94:AE114").width)
objPicture.Name = "Bild1"
Kann mir bitte jemand auf die Sprünge helfen?
Danke und Grüße, Bernd
Anzeige