Hallo Sabi,
zu 1. Markiere die Zelle und wähle Einfügen -> Bilder
zu 2. Ja kannst du. Wenn du die Taste Alt gedrückt hältst und gleichzeitig das Bild verschiebst oder mit den Anfassern per Maus vergrößerst/verkleinerst passt sich das Bild automatisch an die Zellränder an.
Effektiv bleibt das Bild aber über dem Arbeitsblatt liegen. Wenn du im Nachhinein noch Zeilen löschst oder neu einfügst, kann es u.U. zu Verzerrungen kommen.
Du kannst natürlich auch auf vielerlei Arten das Bild über VBA einfügen, bzw. anpassen. Ich nutze gern die folgende Variante:
ActiveSheet.Shapes.AddPicture Filename:="C:\Pfad\Bild1.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, _
Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height
Der Makrorekorder zeichnet hingegen eine veraltete Variante auf, bei der du die Eigenschaften Top, Left, Width und Height erst im Nachhinein festlegen kannst.
ActiveSheet.Pictures.Insert "C:\Pfad\Bild1.jpg"
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
.LockAspectRatio = msoFalse
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Width = ActiveCell.Width
.Height = ActiveCell.Height
End With
Wenn du .LockAspectRatio weglässt, bleibt das Seitenverhältnis zunächst bestehen, wodurch die Breite und/oder Höhe über den Zellenrand hinausragen können. Das Shape-Objekt bietet noch jede Menge weitere Eigenschaften. Spiel mal ein bisschen rum.
Gruß Mr. K.
|