Bild in definierten Bereich einfügen mit VBA

[excl50]

Hallo zusammen,

ich möchte eine jpg-Datei in den Bereich C4:H15 einfügen.

Dim Pic As Picture

Set Pic = ActiveSheet.Pictures.Insert ("Bildpfad")

Pic.Top = ActiveSheet.Range("C4").Top
Pic.Left = ActiveSheet.Range("C4").Left

Wie kann man jetzt Bezug nehmen auf den rechten Rand und den unteren Rand?


Vielen Dank !

[Glausius]

Hallo,
versuche es einmal mit

Pic.Right =
Pic.Bottom =

[excl50]

Genau das hatte ich mir auch erst gedacht. Aber diese Eigenschaften gibt es dafür nicht. Vielleicht ist es irgendwie mit den beiden Eigenschaften BottomRightCell und TopLeftCell möglich , aber diese lassen sich nicht nach dem Prinzip wie Pic.Left und Pic.Top anwenden.

[Igelbauer]

Moin
versuchs mal mit :

Pic.Top = ActiveSheet.Range("C4").Top
Pic.Left = ActiveSheet.Range("C4").Left
Pic.Width = ActiveSheet.Columns("C:H").Width
Pic.Height = ActiveSheet.Rows("4:15").Height

ungetestet, hab leider keine Zeit

Gruss Igel