Registriert seit: 22.01.2018
Version(en): 2016
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 !
Registriert seit: 11.04.2014
Version(en): 2021
Hallo,
versuche es einmal mit
Pic.Right =
Pic.Bottom =
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Registriert seit: 22.01.2018
Version(en): 2016
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.
Registriert seit: 06.12.2017
Version(en): diverse
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
Ich kann nicht alles wissen,
aber vieles lernen !
Folgende(r) 1 Nutzer sagt Danke an Igelbauer für diesen Beitrag:1 Nutzer sagt Danke an Igelbauer für diesen Beitrag 28
• excl50